Option Explicit
Dim Db As Database
 
Private Sub Form_Load()
  <font color=green>' Datenbank öffnen</font>
  Set Db  DBEngine.OpenDatabase(App.Path & "LIGAMAN.MDB")
End Sub
 
Private Sub Form_Terminate()
  On Error Resume Next
  Db.Close
  Set Db = Nothing
End Sub