[Casimiro Notevi]

Ya digo, que es un código muy "fangoso", por ejemplo, con el with do estás ejecutando cosas que no sabes seguro si corresponden o no.
Además ese Transaccion.Commit antes de Consulta.Next seguramente cierra la conexión.