Visual Basic - recorrer todos los registros

hola, tengo el siguiente problema: tengo lo siguiente:

Function Codigos()
Dim Nombre As String
Dim i As Integer
Dim c As Integer

c = Me.Data1.Recordset.RecordCount
i = Me.Data1.Recordset.AbsolutePosition


If (Data1.Recordset.EOF Or Data1.Recordset.BOF) Then
'si no hay registros activos no hace nada
Else
Me.Data1.Recordset.AbsolutePosition = i
'posiciona el recorset en la misma posicion
'asigna a Nombre el valor de "Grado" + "Codigo"
Nombre = Me.Data1.Recordset.Fields("Grado") + Me.Data1.Recordset.Fields("nivel")
Me.Data1.Recordset.Edit
'Asigna a "codigo" el valor de Nombre
Me.Data1.Recordset.Fields("Código") = Nombre
Me.Data1.Recordset.Update
End If



End Function

el problema esta en que si memodifica el registro activo pero si he cambiado los datos de dos registros y luego doy click
solo me actualiza el registro activo y no el anterior lo que pienso es que necesito es que el me rrecorra todos los registros y los actualice como lo hago.
gracias

Si los registros los tienes en una list box, cuando edites tus cambios, haz que todo se borre y se vuelvan a llenar los espacios, asi, al volver a llenarlos, aparecen tus cambios. O en todo caso, actualiza uno por uno.

Para recorrer todos los registros podes hacer asi:

Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
aca va tu codigo para el registro activo
data1.recordset.movenext
Loop

Esto hace que mientras no llegues al ultimo registro realiza el codigo que tenes dentro del DO ...LOOP

Espero te sirva,
Un abrazo