hola, antes no me marcaba nada de errores se ejecutaba todo bien, y a este proyecto le agrege un nuevo formulario ya existente y agrege unas referencias, despues de eso ya no me deja ejecutar el programa, ya quite el form que meti y las referencias y nada me sigue marcando el error.
me lo marca aqui.
If DateValue(fecha_nueva) >= DateValue(fecha_vieja) + 1 Then
Call AbreBaseDatos(basedatos1, rstaleatorio, "select * from aleatorio ", Escritura)
If Not rstaleatorio.EOF Then
While Not rstaleatorio.EOF
rstaleatorio.Edit***********************aqui me marca el error en el edit
rstaleatorio![fecha_depuracion] = fecha_nueva
rstaleatorio.Update
rstaleatorio.MoveNext
Wend
rstaleatorio.Close