帮忙呀，哪里有错误。

Question

Dim a As Database, b As RecordsetPrivate Sub Command1_Click()
b.AddNew
b.Fields("数据").Value = Text1.Text
Text1.SetFocus
End SubPrivate Sub Form_Load()
Data1.DatabaseName = "D:\db1.mdb"
Data1.RecordSource = "表1"
Set a = OpenDatabase("D:\db1.mdb")
Set b = a.OpenRecordset("表1")
End Sub
为什么不能向数据库中加数数据

Answer 1

没有更新记录集：
private sub command1_Click()
    b.AddNew
    b.Fields("数据").value = Text1.text
    b.Update
    Text1.SetFocus
End Sub