Dim oDB As DAO.Database

Public Function dbOpen(ByVal sDatabasePath As String) As Boolean
' Dim oDB As DAO.Database 'DataBase-Objekt wird deklariert
  ' Datenbank öffnen, falls noch nicht geschehen
 
  On Error GoTo ErrHandler 'wenn Fehler bei der Abarbeitung der folgenden 
  ' Anweisungen gehe zur Fehler-Sprungmarke
 
  If oDB Is Nothing Then 'Wenn DAO-Datenbankschnittstelle nicht intialisiert 
  ' ist, dann
    Set oDB = DBEngine.OpenDatabase(sDatabasePath) 'initialisiere die Datenbank 
    ' und
  End If
  dbOpen = True 'öffne die Datenbank
  Exit Function
 
ErrHandler: 'Fehler-Sprungmarke
  MsgBox "Es ist ein Fehler beim Öffnen der Datenbank aufgetreten." & vbCrLf & _
    CStr(Err.Number) & " " & Err.Description 'Fehlermeldung (Nr. & Beschreibung)
End Function