在vb中access 数据库中表 的列表！

Question

如何 得知 一个数据空中，都有什么表存在！ 急———

Answer 1

引用Microsoft ADO Ext. 2.X for DDL and SecurityDim mdbcn As New ADODB.Connection, cat As New ADOX.Catalog
mdbcn.CursorLocation = adUseClient
mdbcn.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);UID=admin;DBQ=数据库全路径名称"
mdbcn.Open
Set cat.ActiveConnection = mdbcn
For i = 0 To cat.Tables.Count - 1
    Debug.Print cat.Tables(i).Name
Next
Set cat = Nothing: mdbcn.Close