Private Sub mnuFileOpen_Click()
 
    With dlgMain
        .CancelError = False
        .DefaultExt = ".mdb"
        .DialogTitle = "Datei öffnen..."
        .Filter = "Datenbanken (*.mdb)|*.mdb|"
        .Flags = cdlOFNHideReadOnly + cdlOFNFileMustExist + cdlOFNShareAware
        Call .ShowOpen
        If .FileName = vbNullString Then
            Exit Sub
        End If
        If cdlOFNExtensionDifferent > 0 Then 'FEHLER
            Call MsgBox("Die ausgewählte Datei ist keine gültige Datenbank.", _
              vbCritical, "Fehler: Ungültige Datei")
        End If
    End With
 
End Sub