Замена db.DoCmd.OpenQuery . что использовать вместо или как победить - VB

Формулировка задачи:

Добрый день.
Уважаемые коллеги, посоветуйте пож-та.
Как лучше поступить? нужно макросом обновлять запросы в базах аксесс.
использую примерно следующее
Sub ppp()
Dim db As Object
Set db = GetObject("E:\База\Отчет1.mdb", "Access.Application")
db.DoCmd.OpenQuery ("запрос1")
db.DoCmd.OpenQuery ("запрос2")
db.DoCmd.OpenQuery ("запрос3")
db. Quit
Set db = GetObject("E:\База\Отчет2.mdb", "Access.Application")
db.DoCmd.OpenQuery ("запрос1")
db.DoCmd.OpenQuery ("запрос2")
db.DoCmd.OpenQuery ("запрос3")
db. Quit
End Sub
все отрабатывает до "запрос3" в базе Отчет2. Ошибки не даёт, но при этом и таблицу не обновляет, которую создаёт "запрос3".
При этом, если выполнять руками, то таблица заполняется, и если вырезаю только эту часть кода
Set db = GetObject("E:\База\Отчет2.mdb", "Access.Application")
db.DoCmd.OpenQuery ("запрос1")
db.DoCmd.OpenQuery ("запрос2")
db.DoCmd.OpenQuery ("запрос3")
db. Quit
и выполняю её,
так же работает. а всё вместе никак.
я уже и sleeр пробовал ставить, и aplication.wait
ничего не помогает, запрос не выполняется.
Посоветуйте пож-та, что-нибудь.
Спасибо.

Решение задачи: «Замена db.DoCmd.OpenQuery . что использовать вместо или как победить»

textual
                            Листинг программы 
                        
                            db.quit
db=<font color="blue">nothing</font>