has verificado que el recorset que tienes no sea solo de lectura y puedas hacer actualizaciones y/o nuevas incorporaciones?
Data1.Recordset.AddNew debe dejarte en blanco todos los campos (verifica que los command no los estas incluyendo) y no deberia darte ningun problema al hacer el Data1.Recordset.Update
De preferencia si tienes botones command de movimiento (anterior, siguiente, primero, ultimo) deberias de desactivarlo al estar haciendo la incorporacion del nuevo registro.
Ej de un guardar:
Cita: Data1.Recordset.Update
MsgBox "Datos guardados correctamente", vbInformation, "Guardado OK"
Data1.Recordset.MoveFirst