Private Function ConnectDB() As Boolean
 
  Dim dbFile As String
  Dim ErrText As String
  Dim dbPasswort As String, PW As String
  Dim PwItems As String, D As Integer
 
  On Error GoTo Fehler
 
  dbFile = InI.GetKeyValue("DATABASE", "DBPFAD", App.Path & "\Termine.mdb")
  PW = InI.GetKeyValue("DATABASE", "DBPW", "admin")
 
  If PW <> "admin" Then
     dbPasswort = DeCode(PW)
    Else
     Rem dbPasswort = PW 'Absichtlich gecancelt ;-)
  End If
 
  If InI.FileExists(dbFile) = False Then
     ErrText = "Datenbank nicht gefunden, bitte informieren Sie " & vbCrLf _
     & "Ihren Systemadministrator."
     MsgBox ErrText, vbOKOnly, "Aufgabenmanager - Fehler !"
     End
  End If
 
  ' DB ist öffentlich deklariert!
  Set DB = Workspaces(0).OpenDatabase(dbFile, False, False, ";pwd=" & _
    dbPasswort)
  Exit Function
 
Fehler:
  MsgBox Str(Err.Number), vbCritical, "Test"
  End
End Function

VB RULEZ !