vb 添加记录时，实时错误 3246 该操作被关联对象取消

以下是我全部的代码，初学数据库，这个问题我网上搜了，答案好像都不行，请指点

简单说明：

我用了一个Data控件，第一次运行创建一个数据库后，再屏蔽了创建的那部分代码，然后在属性栏设置了data1的数据源，textbox控件关联的字段等，再次运行后点击添加按钮，出现了“实时错误 3246 该操作被关联对象取消”

Private Sub Command1_Click()

Data1.Recordset.AddNew
Data1.Recordset.Update

End Sub

Private Sub Form_Load()

Dim db As Database, ws As Workspace
Dim td As TableDef
Dim flds(2) As Field
Dim idx As Index

Set ws = DBEngine.Workspaces(0)
Set db = ws.CreateDatabase("D:\学习\vb\学习测试\数据库\数据库1", dbLangGeneral, dbVersion30)

Set td = db.CreateTableDef("Products")

Set flds(0) = td.CreateField("ProductID", dbLong)
'flds(0).Attributes = dbAutoIncrField
Set flds(1) = td.CreateField("ProductName", dbText)
flds(1).Size = 40

td.Fields.Append flds(0)
td.Fields.Append flds(1)
db.TableDefs.Append td <

vb 实时错误91 VB实时错误‘91’ VB实时错误‘3705’ VB实时错误‘380’ VB 实时错误 424 vb 实时错误5 vb实时错误3705 vb 添加记录 vb中删除SQL数据库中记录出现实时错误3021 vb提示实时错误75