Dim i As Long
...
 
Do Until rstVerkauf.EOF
  rstVerkauf.MoveNext
  rsKauf.AddNew
  For i = 0 To rstVerkauft.Fields.Count - 1
    rsKauf.Fields(i).Value = rstVerkauft.Fields(i).Value
  Next i
  rsKauf.Update
  rstVerkauf.MoveNext
Loop

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de