Ciao ti copia solo il primo record?
se è cosi dovresti fare un ciclo in cui muovi il puntatore al recordset al successivo e updatarlo.
Dovresti fare qualcosa del genere:
do while Data1.RecordSet.EOF=true
Data1.RecordSet.Edit
Data1.Recordset.Field(2).Value= Data1.Recordset.Field(1).Value
Data1.RecordSet.Update
Data1.Recordset.Refresh
Data1.RecordSet.MoveNext