在已知access数据库中，建立新表出现的问题 - VB6论坛

已结贴√ 问题点数：20 回复次数：1

在已知access数据库中，建立新表出现的问题

求助：
在已知access数据库中，建立新表，采用的是网上搜到的方法。引用对象库"Microsoft ActiveX Data Objects 2.7 Library"和"Microsoft ADO Ext 2.8. For DDL Security"

程序代码：

Dim cat As New ADOX.Catalog
  Dim tbl As New ADOX.Table
  Dim pstr As String

  Set cat = New ADOX.Catalog
  Set tbl = New ADOX.Table

  pstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database2.mdb;Persist Security Info=False"
  
  cat.ActiveConnection = pstr
  
  tbl.Name = "MyTable" '表的名称
  
  tbl.Columns.Append "编号", adInteger '表的第一个字段
  tbl.Columns.Append "姓名", adVarWChar, 8 '表的第二个字段
  tbl.Columns.Append "住址", adVarWChar, 50 '表的第三个字段
  
  cat.Tables.Append tb1 '建立数据表 ‘ 这句提示有错？？？？错误提示：参数类型不正确，或不在可以接受的范围之内或与其他参数冲突

这个该如何解决呢！，

[此贴子已经被作者于2016-5-11 16:05编辑过]