Private Const stF = "c:\База.mdb"

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
                    "ShellExecuteA" (ByVal hwnd As Long, _
                     ByVal lpOperation As String, _
                     ByVal lpFile As String, _
                     ByVal lpParameters As String, _
                     ByVal lpDirectory As String, _
                     ByVal nShowCmd As Long) As Long

Private Const SW_SHOWHIDE =  0 

    Call ShellExecute( 0 , "open", stF, "", "", SW_SHOWHIDE)

Set acc = CreateObject("Access.Application")
acc.DBEngine.OpenDatabase "mybase.mdb"
acc.visible=true