Set KostenErinnerung = New Recordset
 
    'Spalte Anrede, Vorname, Nachname aus Tabelle Eigentuemer
    rstKostenErinnerung.Open "SELECT * FROM Kosten", ADOcn 'And "Faelligkeit <=" & _
      "#" & Format$(Now, "m-d-yy") & "#"
 
   With rstKostenErinnerung
     .MoveFirst
      While Not .EOF
       .Find "Erinnern = True"
          If Not .EOF Then
             .MoveNext
          End If
      Wend
 
 
      frmErinnerung.Show
 
    End With

Gruss
Agnes

------------------------------------
Wenn wir heut gemeinsam starten
und wir alle viel erwarten,

denken wir an jedem Tag daran,
dass man es nur schaffen kann,

wenn wir fest zusammen stehen
und den Weg gemeinsam gehen.