Visual Basic - ERROR 3426 en tiempo de ejecución.(URGENTE)

Hola, a ver si alguien me puede ayudar:
tengo un problema con un programilla que he realizado:
tengo un boton en el que al ejecutar el programa le doy para que me cree un registro nuevo en una base de datos.Cuando grabo dicho registro, vuelvo a crear uno nuevo para poder seguir metiendo datos, y lo que me pasa es que la primera vez meto datos y grabo sin problemas pero la segunda vez que le doy al botón de grabar me da error.

El código lo tengo así:

Private Sub nuevo_Click()

Data1.Recordset.MoveLast
Data1.Recordset.AddNew

end sub

Private Sub grabar_Click()

Data1.Recordset.Update
Data1.Recordset.AddNew

end sub

He probado a poner un edit antes del update y un refresh entre el update y el addnew, pero sigue sin funcionar. Agradecería vuestra ayuda. Muchas Gracias. KONTXI

Cambie el evento click del boton grabar asi:

Private Sub grabar_Click()
Data1.Recordset.Update
end sub

Cordial Saludo.