希望我的代码对你有所帮助:Dim adoRecordset As New ADODB.RecordsetPrivate Sub Command1_Click()
adoRecordset.AddNew
End Sub
Private Sub Command2_Click()
MsgBox IIf(IsNull(DataGrid1.Columns(2).Value), "", DataGrid1.Columns(2).Value)
If DataGrid1.Columns(2).Value = "2,10" Then adoRecordset.Update
End Sub
Private Sub Form_Load()
Dim a(2, 9) As String
For i = 0 To 2
For j = 0 To 9
a(i, j) = i & "," & j
Next
NextFor i = 0 To 2  '为 DataGrid 添加三列
   adoRecordset.Fields.Append "第" & i & "列", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
Next i
adoRecordset.Open
For i = 0 To 9
   adoRecordset.AddNew '为 DataGrid 添加十空行
Next i
Set DataGrid1.DataSource = adoRecordset '绑定 DataGrid 的数据源
adoRecordset.MoveFirst
For j = 0 To 9
For i = 0 To 2
DataGrid1.Columns(i).Text = a(i, j)
Next
adoRecordset.MoveNext
Next
End Sub