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
 
  ConnectDB = False
  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 !"
    Exit Function
  End If
 
  ' DB ist öffentlich deklariert!
  On Error Resume Next
  Set DB = Workspaces(0).OpenDatabase(dbFile, False, False, ";pwd=" & _
    dbPasswort)
  If Err.Number <> 0 Then
    ...
    Exit Function
  End If
 
  ConnectDB = True
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de