求助：
在已知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编辑过]

cat.Tables.Append tb1 '建立数据表 ‘ 这句提示有错？？？？错误提示：参数类型不正确，或不在可以接受的范围之内或与其他参数冲突
修改为：
cat.Tables.Append tbl
tb1 与 tbl 看起来差不多，但完全不一样。一个是体比一，一个是体比爱老，呵呵，拼音不准确！

太牛了