'Полный путь до файла
Private Const stF = "c:\Program Files\Microsoft Office\Office\library.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
' Декларация константы для максимизирования окна открываемого приложения.
' Для работы с другими константами смотрите MSDN.
Private Const SW_SHOWMAXIMIZED =  3 

Private Sub Command1_Click()
    Call ShellExecute( 0 , "open", stF, "", "", SW_SHOWMAXIMIZED)
End Sub