Visual Basic - Actualizar registros uno a uno

Tengo varios registros de una tabla (1269) que quiero actualizar ya que sus códigos no siguen el patrón que tengo, es decir, que se incremente en uno por cada registro. Para ello utilizo un control ado, una etiqueta, una barra de progreso y un botón. Aquí esta el código:


Pero al parecer actualiza todos los registros cada vez que cambia el valor de i y no el registro actual que es el que me interesa. ¿Cómo hago para actualizar el registro actual?

tu codigo no esta pero deberia ser algo asi segun yo

adodc1.recordser.open "select * from tabla order by codigo"
if adodc1.recordset.bof=false then adodc1.recordset.movefirst
i=1
do while adodc1.recordset.eof=false
adodc1.recordset.update "codigo",i
adodc1.recordset.movenext
i=i+1
loop

a groso modo deberia ser algo parecido.

espero te sirva
suerte