Option Explicit
Private MadoDataBase As ADODB.Connection
Private MrstDataLog As ADODB.Recordset
 
Private Sub Form_Load
   '// Datenbankverbindung aufbauen
   Set MadoDataBase = New Connection
   MadoDataBase.Cursorlocation = adUseClient 
   MadoDataBase.Open "Provider=..."
 
   '// Recordset öffnen
   Set MrstDataLog = New Recordset
   MrstDataLog.Open "SELECT * FROM ...", MadoDataBase, adOpenDynamic, _
     adLockOptimistic
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   '// Recordset schließen
   MrstDataLog.Close
   '// Datenbank schließen
   MadoDataBase.Close
End Sub