MS Access | ADO | Вывести имена таблиц текущей БД

'вывести имена таблиц текущей базы через ADO

Sub PrintTables_ADO()

Dim db As ADOX.Catalog, tbl As ADOX.Table

Set db = New ADOX.Catalog

db.ActiveConnection = CurrentProject.Connection

For Each tbl In db.Tables

   Debug.Print tbl.Name

Next

End Sub