Объявив переменную, которая будет представлять объект Application, Object или GetObject, а оператором Set присвоите ее объектной переменной. Если Microsoft Access еще не запущен, используйте функцию CreateObject, чтобы запустить его и получить ссылку на объект Application. Если Microsoft Access уже выполняется, то ссылку на объект Application Вы получите вызовом GetObject. В следующем примере функция CreateObject используется для запуска Microsoft Access 97 и получения ссылки на объект Application, которая потом присваивается объектной переменной типа Application:

Dim appAccess As Access. Application
Set appAccess = CreateObject("Access.Application.8")

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997