Private Sub Command1_Click()
Data1.Recordset.AddNew
Data1.Recordset.Fields("your field name 1") = "55"
Data1.Recordset.Fields("your field name 2") = "56"
Data1.Recordset.Fields("your field name 3") = "57"
Data1.Recordset.Update
End Sub
上面的代码是添加数据,如果你是想更新数据:
Private Sub Command1_Click()
先用Data1.Recordset.MoveNext等语句去到你想修改的记录处,然后
Data1.Recordset.edit
Data1.Recordset.Fields(0) = "第一个字段"
Data1.Recordset.Fields(1) = "第二个字段"
Data1.Recordset.Fields(2) = "第三个字段"
Data1.Recordset.Update
End Sub