Private Sub Command1_Click()
Dim mdbdaten As Database
Dim ProtectPassword As Boolean
On Error GoTo errorhandler 'Fehlerbehandlung einrichten 
 
Set mdbdaten = OpenDatabase(pathtxt.Text)'Der Path stand bei mir in einer 
' Textbox. So konnte ich - ohne ständig die Laufzeit des Programmes zu 
' unterbrechen - mehrere Datenbanken ausprobieren.
 
ProtectPassword = True 'Ist die Verbindung zu der Datenbank erfolgreich, dann 
' True ausgeben, andernfalls kein True.
 
errorhandler:
If Not bMist Then 'Wenn also kein True ausgegeben wurde, dann die Msgbox 
' anzeigen
           MsgBox Err.Discription  
    Else
           MsgBox "Verbindung steht" 'Andernfalls melden, dass die Verbindung 
           ' steht.
End If
End Sub