un solo insert genera 2 registros iguales?

[diegof18]

hola no encuentro el error por que cuando inserto nuevos datos a mi base en access me crea el mismo campo por duplicado, probe de todo y no logro encontrar el error no se si es un bug de access o algo asi. alguien que me ayude por favor.


Dim Conexion
set Conexion=server.CreateObject("ADODB.Connection")
Conexion.Open "xxx xxx xxx"
Const adOpenStatic = 3
Const adLockOptimistic = 3
set objrsi=server.CreateObject("ADODB.Recordset")
objrsi.open "PROMOCIONES", Conexion, 3, 3
objrsi.addnew
objrsi("PRO_NOMBRE") = Nombre
objrsi("PRO_DESCRIPCION") = Descripcion
objrsi.Update