Dim vDaten() As Variant
Dim nCount As Integer
Dim i As Integer
 
' Daten lesen
nCount = Rs.Fields.Count - 1
ReDim vDaten(nCount)
For i = 0 To nCount
  vDaten(i) = Rs.Fields(i)
Next i
 
' Gewünschte Felder ändern
vDaten(2) = "neuer Inhalt"
vDaten(10) = 100
...
 
' als neuen Datensatz speichern
Rs.AddNew
For i = 0 To nCount
  Rs.Fields(i).Value = vDaten(i)
Next i
Rs.Update

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de