VB Data控件 access数据库 addnew 增加新记录 出错

VB新手请教大侠：
在一窗体中添加有6个文本控件和一个data控件。data1控件的databaseName设置为本地access2000数据库，此数据库的最后一行有默认的系统空行和最后一列默认的系统空列，删不掉，data1与数据库连接成功。6个文本控件分别与数据库中的6个字段分别绑定成功。
现在通过一个新增数据库按钮CmdAdd将6个文本上的内容一次性分别写进数据库中对应的字段作为一行新记录，在采用addnew方法时，老是报错，说“实时错误：3429 该操作被关联对象取消”，调试时，标记错误的是data1.recordset.addnew. 不知如何解决。
CmdAdd_Click的代码如下：
Private Sub CmdAdd_Click()
Data1.Recordset.AddNew ' 设置为在数据库表中增加记录的模式

If Data1.Recordset.RecordCount > 0 Then ' 连接成功并成功打开的记录表不能为空

Data1.Recordset.Fields(0).Value = TxtID.Text
Data1.Recordset.Fields(1).Value = TxtName.Text
Data1.Recordset.Fields(2).Value = TxtAge.Text
Data1.Recordset.Fields(3).Value = CmbSex.Text
Data1.Recordset.Fields(4).Value = TxtGrade.Text
Data1.Recordset.Fields(5).Value = TxtDepartment.Text
' 分别将文本信息对应值赋给指定的记录表中的字段以形成一条新记录
Data1.Recordset.UpdateBatch
'执行将信息增加入记录表中并更新记录表
MsgB

vb data控件题 VB的data控件的问题 vb的DATA控件怎么样连接到SQL数据库上？ 怎样在vb data控件中实现 多表个显示 求助：VB中用data控件执行SQL语句例子 VB的DATA控件怎么查找ACCESS里的数据 VB的DATA控件怎么查找ACCESS里的数据? 在VB中data控件怎么换成adodc 关于vb Data控件的问题！高手来一下！谢~ VB中的DATA控件能和SQL数据库连接吗？