MS Access | ADO | Обратиться к текущей БД

'обращение к текущей базе данных через ADO

Sub currentDB_ADO()

Dim db As ADOX.Catalog

Set db = New ADOX.Catalog

db.ActiveConnection = CurrentProject.Connection

Debug.Print "Количество таблиц: " & db.Tables.Count - db.Views.Count

'свойства этого каталога

End Sub