Hola a todos, realice una aplicacion en la cual necesito registrar la informacion en una base de datos en Access, el problema que surgio es que me esta duplicando la informacion, es todo no lo hace siempre es
Ocasional, pero estoes un problema y no eh podido encontrar donde radicael problema ya que cada vez que verificoel funcionamiento linea por linea, todo parace estar bien.
El acceso y registo de la informacion hacia la BD lo hago de la siguiente forma.

Sub abrir()
'On Error GoTo Mensaje
Set mydb = New Connection
Set myrs = New ADODB.Recordset
myrs.CursorType = adOpenKeyset
myrs.LockType = adLockOptimistic
path = App.path & "\BD\CECyT No8.mdb"
mydb.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & path & ""
myrs.Open "SELECT Llenado.* FROM Llenado", mydb
end sub

Para añadir nuevos campos:


<DIV style="LINE-HEIGHT: normal">myrs.AddNew
<DIV style="LINE-HEIGHT: normal">myrs.Fields(0) = .TextMatrix(i, 0)
<DIV style="LINE-HEIGHT: normal">...
<DIV style="LINE-HEIGHT: normal">....
<DIV style="LINE-HEIGHT: normal">...
<DIV style="LINE-HEIGHT: normal">myrs.Update
<DIV style="LINE-HEIGHT: normal">myrs.Close
<DIV style="LINE-HEIGHT: normal">mydb.Close
<DIV style="LINE-HEIGHT: normal">
<DIV style="LINE-HEIGHT: normal">Con esto, en ocasiones funciona correctamente sin duplicar, pero aparentemente sin motivo, me duplica la informacion.
<DIV style="LINE-HEIGHT: normal">
<DIV style="LINE-HEIGHT: normal">Espero me puedan ayudar, por todo muchas gracias.