数据库无法添加记录

我在学数据库，买了一本书，照书上的例子操作。
有一个例子，界面如图

添加按钮代码为：
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Adodc1.Recordset.AddNew
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = True
Command9.Enabled = True
End Sub
可是添加不上。

请问高手，如何解决？谢谢！