'-----------------------------------Erster Daten Bank------------------
Dim dbVerkauf
Dim rstVerkauf
Set dbVerkauf = OpenDatabase(App.Path & "\Verkauf.mdb") ' Datenbank1
Set rstVerkauf = dbVerkauf.OpenRecordset("WARE")
 
'-----------------------------------Zweiter  Daten Bank------------------
 
Dim dbKauf
Dim rstKauf
Set dbKauf = OpenDatabase(App.Path & "\Verkauf.mdb") 'Datenbank2
Set rstKauf = dbKauf.OpenRecordset("WARE")
 
'------------- KopierSchleife welches jeden zweiten Datensatz rüberschiebt..... 
' ??
 
Do Until rstVerkauf.EOF
       rstVerkauf.MoveNext
     'Copy dbVerkauf.OpenRecordset to dbKauf      ' Was so natürlich nicht geht
       rstVerkauf.MoveNext
 Loop

------------------------------------
Jeder hat mal angefangen...