adox问题

[loovedwj]

我用VB引用ADOX后，想用它动态建立数据库和表
代码如下：

Dim Mycat As New ADOX.Catalog
Dim Mytable As New ADOX.Table

Mycat.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.

帮帮忙啊
我瞎忙活了一整天了

[booksoon]

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

[孤独剑_LPZ]

换种方法:
引用 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, "提示"