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

Tal vez lo que pasa es no abres la base de datos antes o que estes utilizando un soporte diferente para la base de datos, te recomiendo que utilices el soporte microsoft jet 5.0 o 6.0

lo que te pasa es que no asignas los valores y haces el update antes del addnew.

antes de hacer nadas debe decirse al recordset que quieres añadir un registro nuevo con el el addnew

luego asignas los valores

y por ultimo los guardas con el update

veras como asi funciona