adox问题

Question

我用VB引用ADOX后，想用它动态建立数据库和表
代码如下：Dim Mycat As New ADOX.Catalog
Dim Mytable As New ADOX.TableMycat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=____"   创建数据库（.mdb）cat.ActiveConnection "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=____"  链接数据库
Mytable.Name = "MyTable"  表名
Mytable.Columns.Append "编号", adInteger  第一个字段
Mycat.Tables.Append Mytable  添加表    Mycat.Tables.Append Mytable  ———————————————————— 出错
编译提示： Type is inalive.帮帮忙啊  
我瞎忙活了一整天了

Answer 1

将这一句删除了吧
cat.ActiveConnection "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=____"  链接数据库 

Answer 2

换种方法:
引用 Mocrsoft DAO 3.51    Dim db As Database
    Dim td As TableDef
    Dim f As Field
    Dim Result
    Set db = DBEngine.CreateDatabase(App.Path & "\Persons.mdb", dbLangGeneral)
    '建表Person
    Set td = New TableDef
    Set f = td.CreateField("SN", dbLong)
    td.Fields.Append f
    Set f = td.CreateField("PYM", dbText, 10)
    td.Fields.Append f
    Set f = td.CreateField("NAME", dbText, 10)
    td.Fields.Append f
    td.Name = "Person"
    db.TableDefs.Append td
    Set db = Nothing
    MsgBox "重建数据库 Persons.mdb 成功", 64, "提示"