Visual Basic - Guardar en otro Recordset

hey,
tengo un problema...
necesito guardar los datos de un control data ( data1) que se muestran en un msflexgrid, y que cuando presionen un boton (cmdDB) los guarde en otro recordset (data7) y este se guarde en su base de datos correspondiente.
Aqui les adjunto el codigo que he estado tratando de usar pero nada, me tira que Update or CancelUpdate without AddNew or Edit,

'Codigo
Private Sub cmdDB_Click()
Do While Not Data1.Recordset.EOF
Data7.Recordset.AddNew
Data7.Recordset!Referencia = 1
Data7.Recordset!Codigo = Data1.Recordset("Codigo")
Data7.Recordset!Producto = Data1.Recordset("Producto")
Data7.Recordset!Cantidad = Data1.Recordset("Cantidad")
Data7.Recordset!CostoUnitario = Data1.Recordset("CostoUnitario")
Data7.Recordset!CostoTotal = Data1.Recordset("CostoTotal")
Data7.Refresh
Data7.Recordset.Update
Data1.Recordset.MoveNext
Loop
End Sub

Lo que hace es recorrer todos los recordsets y guardarlo, pero me tira error en el update

Hazlo así
Private Sub cmdDB_Click()
Do While Not Data1.Recordset.EOF
Data7.Recordset.AddNew
Data7.Recordset.Fields("Referencia”) = 1
Data7.Recordset.Fields("Codigo”) = Data1.Recordset("Codigo")
Data7.Recordset.Fields("Producto”) = Data1.Recordset("Producto")
Data7.Recordset.Fields("Cantidad”) = Data1.Recordset("Cantidad")
Data7.Recordset.Fields("CostoUnitario”) = Data1.Recordset("CostoUnitario")
Data7.Recordset.Fields("CostoTotal”) = Data1.Recordset("CostoTotal")
Data7.Recordset.Update
Data7.Refresh
Data1.Recordset.MoveNext
Loop
End Sub