Dim RsNew as ADODB.Recordset 'Ziel
Dim RsOld as ADODB.Recordset 'Quelle
 
'Dein Connection Objekt ist Con
 
Do While Not RsOld.EOF
  'Bis zum Ende des RS duchlaufen
  RsNew.AddNew
  For Each F In RsOld.Fields 'Alle Felder des Rs durchlaufen
     If IsNull(RsOld.Fields(F.Name)) = False Then
       'Inhalt des Feldes ist ungleich NULL
       RsNew.Fields(F.Name) = RsOld.Fields(F.Name)
     End If
  Next 
  RsNew.Update 'DS Speichern
  RsOld.MoveNext 'Nächster RS
Loop

Cu

Wolfgang