Public Function test()
    ' Определяем переменну., в которой будет хранится ссылка на открываемую БД
    Dim oapp As Access.Application

    ' Открываем Access
    Set oapp = CreateObject( "Access.Application" )
    'Для Access 2000 возможно надо заменить на:
    'Set oapp = CreateObject( "Access.Application.8 ")
    
    ' Открываем БД
    oapp.OpenCurrentDatabase "c:\temp\q.mdb"

    ' ..................................... Делаем тут что хотим

    'Закрываем БД
    oapp.CloseCurrentDatabase
    'Закрываем Access
    oapp.Quit
    ' Освобождаем переменную
    Set oapp = Nothing
End Function