Visual Basic - Error 3426 en tiempo de ejecucion VisualBasic 6.0

Hola, estoy desarrollando un sistema de registro de correspondencia en VisualBaisc6.0 y he enlazado una BD Access 97 por medio de un ControlData todas las propiedas del mismo estan bien configuradas:

Connect:Access
DataBaseName:(nombre y lugar del dcoumento)
ReadOnly:Falso
Recordsetype:0-tabla
RecordSource:tabla1

y conjuntamente todos los texbox estan configurados:
DataSource:Data1
Data Field:Referencia -> cada uno con el campo correspondiente!

El prolema nace cuando estoy ingresando un 2do registro nuevo, al precionar el boton Agregar el cual esta compuesto de la siguiente manera:
mensaje$ = "Introduzca Referencia"
reply = MsgBox(mensaje$, vbOKCancel, "Añadir Referencia")
If reply = vbOK Then
Text1.SetFocus
Data1.Recordset.AddNewEnd If

me sale-> Error 3426 en tiempo de ejecucucion, y me hace referencia a la linea -> Data1.Recordset.Addnew
Soy nueva en esto, asi que muchas gracias por su ayuda y por tomarse el tiempo para ayudarme, hoy por mi mañana por ustedes ;) Gracias.. PAZ & BIEN <3

verifica esta parte:

If reply = vbOK Then
Text1.SetFocus
Data1.Recordset.AddNewEnd If

deberias de bajar el end if porque alli hay un error de sintaxis, asi que te quedaria asi:

If reply = vbOK Then
Text1.SetFocus
Data1.Recordset.AddNew
End If

ahora bien centrados en el error no veo por ningun lado donde declaras los datos para Data1 a guardar y por lo tanto no le manda nada al objeto AddNew, asi que tal vez por eso te da el error pues no tiene nada para guardar, yo considero que en lugar de darle un setfocus al textbox deberias de asignarle los datos que tiene el textbox para que quede algo asi:

If reply = vbOK Then
Data1=Text1
Data1.Recordset.AddNew
End If

creo que es algo asi o corrige la sintaxis, mi experiencia no es tanto en ADO, sino en DAO, asi que utilizo querys directos, pero espero orientarte en algo sino vendra un experto en ADO a ayudarte, espero, te sirva la orientacion saludos....

Es Data1.Recordset.AddNew sobra el end if

hola!.... en la linea Data1.Recordset.AddNew si sobra el end if, de echo en el programa obviamente lo tengo abajo, me imagino q cuando copie olvide pulsar enter o algo asi, gracias por su ayuda y su tiempo, ya consegui mi error y es que los campos de la tabla de Access no estaban bien configurados en vista de diseño.

Muchas gracias, EXITO!