Sub ListTables()
Dim cat As New ADOX.Catalog
Dim tbl As ADOX.Table
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\mydb.mdb;"
For Each tbl In cat.Tables
Debug.Print tbl.Name, tbl.Type
Next
End Sub