Beschreibung

Besonders bei nicht geschlossenen Recordset-Objekten kann es zu Problemen kommen.
Daher aus Sicherheitsgründen das Schließen selbst auslösen.

Beispiel:

Dim db As DAO.Database
Dim rst As DAO.Recordset
 
Set db = CurrentDb
Set rst = db.OpenRecordset("qryBeispiel")
With rst
  ' … Anweisungen mit Recordset-Objekt
  .Close ' rst schließen
End With
Set rst = Nothing ' Referenz entfernen
Set db = Nothing