我用的代码是这个,总报错:
Private Sub Command3_Click()
Adodc1.Recordset.AddNew '添加新纪录
Adodc1.Recordset("name").Value = Text2.Text
Adodc1.Recordset("address").Value = Text3.Text
Adodc1.Recordset("city").Value = Text4.Text
Adodc1.Recordset("state").Value = Text5.Text
Adodc1.Recordset("zip").Value = Text6.Text
Adodc1.Recordset("country").Value = Text7.Text
End Sub