关于用vb创建access数据库的问题??

[earphone]

小弟这次用vb创建access数据库ONEZLTD，下面为源程序
Private Sub Command1_Click()
Dim MYWS As Workspace, MYDB As Database
Dim ONEZHTD As TableDef, TWOZHTD As TableDef, ID As TableDef
Dim IDFlds As Field, CokeFlds As Field, EngineryFlds As Field
Dim FireBoxIdx As Index, FireFlds As Field
Dim TAbleName As String


Set MYWS = DBEngine.Workspaces(0)
Set MYDB = MYWS.CreateDatabase("e:\vb98\new\jlcw\data\data.mdb", _
dbLangGeneral, dbVersion30)
Set ONEZHTD = MYDB.CreateTableDef(Date)
Set ID = ONEZHTD.CreateField("ID", dbInteger)
Set CokeFlds = ONEZHTD.CreateField("焦侧", dbInteger)
Set EngineryFlds = ONEZHTD.CreateField("机侧", dbInteger)
ID.Attributes = dbAutoIncrField
ONEZHTD.Fields.Append ID
ONEZHTD.Fields.Append CokeFlds
ONEZHTD.Fields.Append EngineryFlds
Set FireBoxIdx = ONEZHTD.CreateIndex("ID")
FireBoxIdx.Primary = True
FireBoxIdx.Unique = True
Set FireFlds = FireBoxIdx.CreateField("ID")
FireBoxIdx.Fields.Append FireFlds
ONEZHTD.Indexes.Append FireBoxIdx
MYDB.TableDefs.Append ONEZHTD
MYDB.Close
End Sub
按F5启动每次执行到Set ID = ONEZHTD.CreateField("ID", dbInteger)就会
显示实时错误'13'类型不匹配，小弟觉的是dbinteger这错了，可不知怎么改
为什么？请各位大虾指点！
还有就是若用把上面的程序从空行处拷到立即窗口就可以往下执行了，可执行
到MYDB.TableDefs.Append ONEZHTD就会显示实时错误'3001'无效的参数量
这是哪错了呢?谢谢

[Wingsun]

不对，你的ID的声明：ID As TableDef
而使用时Set ID = ONEZHTD.CreateField("ID", dbInteger)
当然类型不匹配啊。