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