Option Explicit
 
Private Sub mnuMovieDBÖffnen_Click()
With CommonDialogMovie
Dim sFileName As String
.Filter = "Datenbank Files - (DBMovies.mdb)|DBMovies.mdb|Datenbank Backup Files" & _
  "- (DBMovies_aob.mdb)|DBMovies_aob.mdb"
.InitDir = App.Path
.DialogTitle = "Bitte Movie Datenbank auswählen."
.FileName = ""
.ShowOpen
sFileName = .FileName
End With
MovieData.DatabaseName = sFileName
End Sub

mfg Lukas