Private Sub Opendatabase_Click()
  Dim TaskID
  Dim sFile As String
  Dim sParam As String
 
  ' Access oeffnen
  Programm = "C:\Programme\access.exe"  'Your Folder for the programm
 
  ' Datei die in Access geoefffnet werden muss
  File = "C:\test.mde"
 
  TaskID = Shell(Chr$(34) & Programm & Chr$(34) & " " & File, vbNormalFocus)
End Sub