Выполнить запрос - VB

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

Есть БД Access. В ней находятся 3 модуля: GetDate1, Module1 и Module2, а также запрос "Запрос2" на создание таблицы,использующий функции из модулей.
В модуле GetDate1 функция GetDate
В модуле Module1 функция iGetCode
В модуле Module2 функция perekodir
Помогите из программы на VB(не из Access) выполнить SQL запрос, такойже как
"Запрос2" или хотябы выполнить сам "Запрос2".
Спасибо!
GanSS

Решение задачи: «Выполнить запрос»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> objAccess <font color="blue">As</font> <font color="blue">Object</font>
    <font color="blue">Set</font> objAccess = GetObject(<font color="teal">"C:\Test.mdb"</font>)
    objAccess.DoCmd.OpenQuery <font color="teal">"qryTest"</font>
    objAccess.quit
    <font color="blue">Set</font> objAccess = <font color="blue">Nothing</font>
                        