Visual Basic - Cómo uso el Update para esto???

Hola amigos
tengo un problema que no sé cómo resolver. Tengo una base de datos que contiene entre otras cosas, un campo llamado código (es de tipo numérico y contiene cientos de registros)
El problema es que todos los registros están erróneos y quiero modificarlos de una sola vez.
Lo que pasa es que por ejemplo, el contenido del primer registro tiene (en el campo código) el número 43784, el segundo el 43785, el tercero el 43786 y etc, etc.
Y lo que quiero, es cambiar de una sola vez ese número 3, o sea el segundo dígito, de todos los registros, lo quiero cambiar por otro número.

Agradezco a quien me ayude a hacer esto por favor.

Si en vez de 3 quieres un 5 puedes sumarle 2000

A ver si te sirve, saludos.

Hola, te mando un fragmento de una aplicación mia que he adaptado un poco para tu caso. Suponiendo que el número por el que quieres empezar sea 43784. Un saludo.

Dim indice As Integer
Dim base As Database
Dim registro As Recordset
Dim miquery As QueryDef
indice = 44784 -1
Set base = OpenDatabase("Tabla.mdb")
Set miquery = base.CreateQueryDef("")
With miquery
.SQL = "select Identificador from [Tabla] order by Identificador"
Set registro = miquery.OpenRecordset()
End With
If registro.BOF Then
MsgBox ("No se puede realizar esta operación porque la tabla está vacía")
Else
With registro
.MoveFirst
Do While Not .EOF
indice = indice + 1
.Edit
!Identificador = indice
.Update
.MoveNext
Loop
End With
End If

Gracias pero debo reconocer que el ejemplo que dí no es el mejor.
En definitiva lo que quiero es aumentar en 1, el segundo dígito. El que no siempre será la unidad de mil.

O sea, 43785 a 44785 y 574789 a 584789.

Y ojalá todos los registros del campo de una sola vez.

Por ejemplo, yo sé que puedo aumentar en 15 (y con un solo click) todos los registros de un campo llamado “Gasto” bajo la condicion que indica la cláusula Where, de este ejemplo:
base.Execute "UPDATE Mitabla SET Gasto = (Gasto+15) WHERE Nombre=yo"

Pero cómo puedo hacer un bucle que detecte el segundo dígito de cada registro y le agregue 1????