'Annahmen:
'Es wird ADO verwendet
'rsQuelle und rsZiel = aktive Recordsets
'Connection und Recordsets sind bereits deklariert und initialisiert
 
'satzweises kopieren von rsQuelle nach rsZiel
 
'Quelle öffnen
rsQuelle.Open
 
'enthält Quelle Datensätze ?
If rsQuelle.AbsolutePosition <> -1 Then
    rsQuelle.MoveFirst
    'Ziel öffnen
    rsZiel.Open
 
    With rsQuelle
        'gesamtes Recordset durchlaufen
        Do Until .EOF
            'Soll Satz kopiert werden?
            If Not .Fields("Kopiermerker").Value Then
                'Satz kopieren
                rsZiel.AddNew
                rsZiel.Fields("Feld1").Value = .Fields("Feld1").Value
                rsZiel.Fields("Feld2").Value = .Fields("Feld2").Value
                'etc.
                rsZiel.Update
            End If
            'Auf zum nächsten Satz
            If Not .EOF Then .MoveNext
        Loop
    End With
End If
 
If rsZiel.State = adStateOpen Then
    rsZiel.Close
End If
If rsQuelle.State = adStateOpen Then
    rsQuelle.Close
End If

Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it. (Brian W. Kernighan)