'обращение к текущей базе данных через DAO
'подсчет количества таблиц (например)
Sub CurrentDB_DAO()
Dim db As Database
Set db = CurrentDb
Debug.Print "Количество таблиц: " & db.TableDefs.Count
End Sub