Public pdb As ADODB.Connection
 
Public Sub dbOpen()
 
    On Error GoTo fehler
 
 
 
    Set pdb = New ADODB.Connection
    pdb.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & _
      "\RdvParc.mdb"
 
Exit Sub
 
fehler:
 
    MsgBox "Datenbank ist nicht verfügbar, Programm wird beendet!", vbOKOnly & _
      vbCritical
    Unload Haupt
    Unload Form1
    End
 
End Sub