Public DBName As String
Public DBObject As DataBase
Public DBError As Variant
 
Private tmpDBOpen As Boolean
 
Public Function OpenDB(Optional Byval sPWD As String) As Boolean
    OpenDB = False
 
    If DBName = "" Then
            DBError = "Eigenschaft DBName nicht gefunden." 
            Exit Function
    End If
 
    On Error Resume Next
    If Dir(DBName) = "" Then 
           DBError = "Datenbank konnte nicht gefunden werden."
           Exit Function
    End If
 
    If Err.Number > 0 Then
           DBError = "Pfad nicht gefunden." 
           Exit Function
    End If 
 
    Set Set DBObject = DBEngine.OpenDataBase(DBName, false, false,";pwd=" & _
      sPwd)
    If Err.Number > 0 Then
          DBError = "Datenbank konnte nicht geöffnet werden."
    ElseIf Err.Number = 0 Then
          tmpOpen = True
          DBError = 0
          DBName = DBObject.Name
          OpenDB = True
    End If      
End Function
 
Private Sub Class_Terminate()
      If Not tmpOpen Then Exit Sub
      If DBObject Is Nothing Then Exit Sub
      CloseDB
End Sub 
 
Public Sub Class_Initialize()
     tmpOpen = False
     Set DBObject = Nothing
     DBError = vbNullChar
     DBName = vbNullChar
End Sub 
 
Public Sub CloseDB()       
     If Not tmpOpen Then Exit Sub
 
     DBEngine.Idle
     DB.Close
     Set DBObject = Nothing
     tmpOpen=False
End Sub

Public DB As New clsDBEngine
 
 
Private Sub Main()
      Dim b As Boolean
 
      'Open DB
      DB.DBName =  App.Path & "Test.DB"
      b = DB.OpenDB()
 
      If Not b Then
          MsgBox "Es ist ein Fehler aufgetreten: " & DB.DBError
          Set DB = Nothing
          Exit Sub
       End If
End Sub

Set Rs = Startup.DB.DBObject.OpenRecordset(".....")