<code>Dim SQL As String
Dim Ds As Recordset
Dim Db As Database
 
<font color=green>' Datenbank öffnen</font>
Set Db = Workspaces(0).OpenDatabase("DeineDatenbank.mdb")
 
<font color=green>' SQL-Abfragestring</font>
SQL = "SELECT AdrNr, Name, Gedruckt FROM Kunden WHERE " & _
  " Gedruckt = 'N' ORDER BY AdrNr"
 
<font color=green>' Recordset öffnen</font>
Set Ds = Db.OpenRecordset(SQL)
If Ds.RecordCount > 0 Then
  While Not Ds.Eof
    <font color=green>' Hier die Druckroutine einfügen:
    ' aktuellen Datensatz drucken</font>
    ...
    <font color=green>' Gedruckt auf J setzen</font>
    Ds.Edit
    Ds("Gedruckt") = "J"
    Ds.Update
    Ds.MoveNext
  Wend
End If
Ds.Close
Db.Close</code>