Dim adoRecordset As New ADODB.Recordset
Dim i As Integer
For i = 0 To 2 '为Recordset三个字段,即为 DataGrid 添加三列
adoRecordset.Fields.Append "第" & i & "列", adVariant, ,
adFldMayBeNull + adFldIsNullable + adFldUpdatable
Next i
adoRecordset.Open
adoRecordset.AddNew '加一条记录,即为 DataGrid 添加一空行
Set DataGrid1.DataSource = adoRecordset '绑定 DataGrid 的数据源
adoRecordset.MoveFirst