大侠们帮个忙吧，已经好几天都没有解决了：了数据库中定义字段的问题，在线等，先谢了。

Question

'创建数据库
   Dim cat As New ADOX.Catalog
   cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\vbfile\record.mdb"
'创建表及字段
   Dim tbl As New Table
'Open the catalog.
   ' Open the Catalog.
   cat.ActiveConnection = _
      "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\vbfile\record.mdb;"
   tbl.Name = "MyTable"
   'tbl.Columns.Append "INSPECTSERIAL", adDecimal, 200 '定义15个字符串的长度
   tbl.Columns.Append "INSPECTDATA", adDate
   tbl.Columns.Append "INSTRUMENTSTYKE", adVarWChar, 10
   tbl.Columns.Append "WEIGHTUNIT", adVarWChar, 10
   'tbl.Columns.Append "PACKWEIGHT", adDecimal, 10
   tbl.Columns.Append "REMARK", adVarWChar, 10
   'tbl.Columns.Append "CONFIRMCLERK", adDecimal, 10
   tbl.Columns.Append "CHECKCLERK", adVarWChar, 12
   tbl.Columns.Append "WEIGHTCLERK", adVarWChar, 12
   tbl.Columns.Append "PackAgeSerial", adInteger, 15
   cat.Tables.Append tbl程序运行时会产生类型错误的问题，为何呀？发生错误的行是在定义adVarWChar的那一行。数据定义有啥要求呀？

Answer 1

其实错误是发生在定义adDecimal类型字段的时候，你可以用其他的类型来替代他

Answer 2

Decimal 数据类型只能在 Variant中使用，也就是说，不能声明一变量为 Decimal 的类型。