Hey, VBA gibt die folgende Fehlermeldung aus:

Laufzeitfehler '91': Objektvariable oder With-Blockvariable nicht festgelegt

Dabei verweist er auf die Zeile Set rs = rs.OpenRecordset(...)

Private Sub search()
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb()
Set rs = rs.OpenRecordset("tblKunden", dbOpenSnapshot) 'angeblich liegt hier das Problem

Do
    If rs.Fields("Alter") <= 67 Then
        Debug.Print rs!Name, rs!Alter
    End If
    
    rs.MoveNext
Loop Until rs.EOF = True

rs.Close
End Sub

Bin den Code jetzt mehrmals durchgegangen, aber irgendwie kann ich den Fehler nicht finden! So langsam bin ich am verzweifeln... Vielleicht kann ja jemand weiterhelfen. Vielen Dank!