Option expedition
Private Sub Form_Load () Dim adoRecordset As ADODB.Recordset Set adoRecordset = New ADODB.Recordset Dim i As Integer For i = 0 To 2 'is Recordset three fields, i.e. adding three DataGrid adoRecordset.Fields.Append "of" & i & "column", adVariant, adFldMayBeNull, adFldIsNullable adFldUpdatable Next i adoRecordset.Open For i = 0 To 2 adoRecordset.AddNew 'plus four records, i.e. add Sikong DataGrid row 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' Bind DataGrid data source adorecordset.movefirstend Sub
