MS Access | DAO | Обратиться к другой БД

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

Sub AnotherDB_DAO()

Dim db As Database

Set db = DBEngine(0).OpenDatabase(AnotherDBpath & "\northwind.mdb")

'ссылаемся на константу = путь к базе northwind, иначе (если бы не указали константу) прописывали бы путь к базе в данной команде

Debug.Print "Количество таблиц в базе NorthWind: " & db.TableDefs.Count

End Sub