Hola, probá haciendo un refresh antes de ejecutar el AddNew
Código:
Data1.RecordSource = "Select * from reparaciones"
Data1.Refresh
With Data1.Recordset
.AddNew
!Fecha = txtfecha.Text
!Nombre = txtnombre.Text
!Kms = txtkms.Text
!Matricula = txtmatricula.Text
!Modelo = txtmodelo.Text
!Reparaciones = txtreparaciones.Text
!Importe = txtimporte.Text
.Update
End With
-------------