понял

(с выражением лица)

ну, тогда варианты такие могут быть
1) помутить с пустым файлом-флагом. Удаляемым при пуске скрипта и создаваемым при завершении.
2) твой вариант пуска совместить с тем, что "было раньше". Окрывать проект пустышку через Run, получать на него ссылку через GetObject, далее манипулировать Application

Должно сработать

Вот про GetObject:

You can use the GetObject() function to activate or open an instance of Microsoft Access and a specific database with the following syntax:
Dim objAccess as Object
Set objAccess = GetObject("C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb")

Note that the objAccess variable can refer to different instances of Microsoft Access depending on the following conditions when the code is run:


If the specified database (Northwind.mdb) is already open in an instance of Microsoft Access, then objAccess refers to the open instance. If the specified database is open in multiple instances of Microsoft Access, then objAccess refers to one of those instances at random.
If Microsoft Access is not running when the code is run, then a new instance is opened and objAccess refers to that new instance.