Visual Basic - ADDNEW NO FUNCIONA (URGENTE)

TENGO UN PROBLEMA, EN MI PROGRAMA CUANDO LE DOY A GRABAR A UN REGISTRO TENGO

DATA1.RECORDSET.UPDATE
DATA1.RECORDSET.ADDNEW

ANTES ME FUNCIONABA, PERO AHORA NO SÉ QUE PASA QUE CUANDO LE DOY A REGISTRAR A VECES ME COPIA EL REGISTRO Y LUEGO AÑADE, PERO OTRAS SE QUEDA EN EL MISMO REGISTRO AL QUE LE HE DADO GRABAR, Y NO LO GRABA.

EL CÓDIGO ENTERO AL HACER CLICK ES:

If Text9.Text <> "" Then
Form1.Data1.Recordset.Fields(14) = Text9.Text
End If
On Error Resume Next
Form1.Data1.Recordset.Fields(10) = Text12.Text
Form1.Data1.Recordset.Fields(11) = Text13.Text
Form1.Data1.Recordset.Fields(12) = Text10.Text

Data1.Recordset.Update

Data1.Recordset.AddNew

HAGO LAS ASIGNACIONES A LOS CAMPOS ASÍ PQ TENÍA UN PROBLEMA DE CONVERSIÓN DE COMAS Y PUNTOS... PERO BUENO NO CREO QUE TENGA NADA QUE VER PQ ANTES FUNCIONABA.

GRACIAS POR ADELANTADO. KONTXI

Primero agregas uno nuevo, despues llenas los campos, por ultimo actualizas

Data1.Recordset.AddNew
'Llenas los campos
Data1.Recordset.Update

el error esta en que primero tienes que hacer el AddNew para habilitar el registro nuevo. Luego llenas los campos y por ultimo los actualizas con el Update

A ver creo que no me he explicado bien. Yo pongo un addnew al principio cuando se empieza a ejecutar el programa, y después según voy grabando, voy añadiendo uno nuevo para poder seguir metiendo datos. Además antes me funcionaba.

KONTXI

Hola.

Data1.Recordset.AddNew

If Text9.Text <> "" Then
Form1.Data1.Recordset.Fields(14) = Text9.Text
End If
On Error Resume Next
Form1.Data1.Recordset.Fields(10) = Text12.Text
Form1.Data1.Recordset.Fields(11) = Text13.Text
Form1.Data1.Recordset.Fields(12) = Text10.Text

Data1.Recordset.Update

Así tendría que funcionarte.
Saludos