动态创建recordset

Option Explicit

Private Sub Form_Load()
    Dim adoRecordset As ADODB.Recordset
    Set adoRecordset = 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
    For i = 0 To 2
    adoRecordset.AddNew '加四条记录,即为 DataGrid 添加四空行
    adoRecordset.Fields(0).Value = i
    adoRecordset.Fields(1).Value = "gyp" & i
    adoRecordset.Fields(2).Value = "vb" & i
    'adoRecordset.Update
    Next i
    Set DataGrid1.DataSource = adoRecordset '绑定 DataGrid 的数据源
    adoRecordset.MoveFirst
End Sub