Visual Basic - AGREGAR NUEVO REGISTRO

Hola quisiera saber si pueden darme una mano con esto que me esta pasando.

Cuando intento grabar un nuevo registro en mi base de datos confeccionada en microsoft access, lo hago con el comando AddNew (utilizo un DataEnviroment para la conexion) graba siempre en el mismo lugar, o sea en la misma posicion, reemplazando lo que estaba alli grabado. Nunca agrega un nuevo registro.

Como mi clave no en autonumerica, sino que sigue un patron por lo cual hay que ingresarla por teclado, cargo la totalidad de los datos y al confirmar los mismos para proceder a grabarlos, ejecuto el comando AddNew y luego un Update.

Valido datos
Valido datos

"Ejecuto AddNew"
"Ejecuto Update"

Esto no me paso nunca quisiera saber si necesito agrgar un MoveNext o hacerlo de otra manera porque a mi me parece rarisimo.


Desde ya muchas gracias

Hola te diria que pegues el codigo, sera mejor para ayudarte a encontrar tu error:

Pero por la dudas te aclaro talvez tontamente que la sentencia seria asi

addnew ' primero

datos a grabar 'en el medio
datos a grabar
datos a grabar
datos a grabar
datos a grabar
datos a grabar

update 'ultimo

Bueno no se si pegas tu codigo talvez lo pueda corregir

saludos julio

Gracias Julio ahi va el codigo. Los datos estan enlazados con los controles (textbox)


Public Sub Guardar()

If ValidoCloc = True Then
If ValidoDloc = True Then
If ValidoLoc = True Then
Entorno.rsMLOCA.AddNew
MsgBox "Grabado correctamente", vbExclamation + vbOKOnly
Call DeshabilitoTextos
Else
MsgBox "La localidad ya existe", vbCritical + vbOKOnly, "Error"
Call VacioTextos
txt_codigo_localidad.SetFocus
End If
Else
MsgBox "Dato requerido", vbCritical + vbOKOnly, "Error"
End If
Else
MsgBox "Dato requerido", vbCritical + vbOKOnly, "Error"
End If
End Sub


Gracias

Public Sub Guardar()

If txt_codigo_localidad.Text = "" then
MsgBox "Dato requerido", vbCritical + vbOKOnly, "Error"
exit sub
end if

If siguienteText.Text = "" then 'aqui iria el nombre del otro textbox
MsgBox "Dato requerido", vbCritical + vbOKOnly, "Error"
exit sub
end if

If siguienteText.Text = "" then 'aqui iria el nombre del otro textbox
MsgBox "Dato requerido", vbCritical + vbOKOnly, "Error"
exit sub
end if

UNA VEZ PASADO LOS FILTROS DE ARRIBA:

If ValidoCloc = True And ValidoDloc = True And ValidoValidoLoc = True then
Entorno.rsMLOCA.AddNew
Entorno.rsMLOCA.Update
MsgBox "Grabado correctamente", vbExclamation + vbOKOnly
Call DeshabilitoTextos
Else
MsgBox "La localidad ya existe", vbCritical + vbOKOnly, "Error"
Call VacioTextos
txt_codigo_localidad.SetFocus
End If

End Sub

Sino escribime no ahi drama!!!!