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 Sub mnuAccess_Click()
  ShellExecute Me.hwnd, "open", "DeinLaufwerk:\DeinPfad\DeineDatei.mdb", _
    vbNullString, "C:\", 1
End Sub