Hola Shiryu_Libra.
Antes que nada, una pequeña sugerencia.
Si lo que quieres conseguir con los IF's aninados es dar formato a un número (por ejemplo, 00001, 00011, 00111,01111, 11111, etc..), lo puedes hacer, de la siguiente manera:
Código:
strNum = Rigth( "00000" & Cstr(intNumero) , 5 )
Y la parte donde actualizar es antes de la línea:
RS.movenext
Regularmente yo lo manejo todo con sentencias SQL, es decir, para este caso, usar una sentencia SQL para mostrar los datos y otras SQL Update para actualizar ( valgasé la redundancia).
Saludos.