为什么建不了表？

Question

Set con = New ADODB.Connection
str = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "/log.mdb" & ";"
con.Open str Set tal = New ADOX.Table
     tal.Name = "gongying"
     tal.Columns.Append "ID", adInteger
     tal.Columns.Append "name", adVarWChar, 40
     tal.Columns.Append "dz", adVarWChar, 40
     tal.Columns.Append "tel", adVarWChar, 40
     cat.Tables.Append tal
    con.Close
    Set con = Nothing
    Set tbl = Nothing
    Set cat = Nothing
上面代码那里出错了，为什么就是建不了表？应该怎么改？

Answer 1

Set cat = New ADOX.Catalog
 cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "/log.mdb" & ";"
如果把连接改为这个将可以建立，但我总不能建那么多库存吧，有办法吗？

Answer 2

没有打开数据库阿
打开数据库就可以了，没必要新建，例如
Dim cat As New ADOX.Catalog
   cat.ActiveConnection = _ 
      "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=c:\Program Files\Microsoft Office\" & _
      "Office\Samples\Northwind.mdb;"
 Set tal = New ADOX.Table
     tal.Name = "gongying"
     tal.Columns.Append "ID", adInteger
     tal.Columns.Append "name", adVarWChar, 40
     tal.Columns.Append "dz", adVarWChar, 40
     tal.Columns.Append "tel", adVarWChar, 40
     cat.Tables.Append tal'另外,ADODB.Connection对象在这里没有用的
'这三句可以删掉
'con = New ADODB.Connection
'con.Open str
'Set con = Nothing