Actualizar tabla con Id repetidos, asignando un valor a partir del máximo valor de otro campo

Estoy actualizando una tabla que contiene códigos (codigo) de personas que se pueden repetir a lo largo de la tabla, en un campo (servi1_cal) se ha agregado un número secuencial que ha aumentado cada vez que la persona aparece en la tabla, lo que necesito hacer es agregar el valor “1” en un campo (servi1) al valor más alto contenido en el campo “servi1_cal”, y “0” a los demás valores. Para eso utilice el siguiente código, pero es muy dilatado (la tabla contiene 52,000 registros) y quedan registros con datos en blanco en el campo “servi1”.

Private Sub BtnNVeces_Click()
Dim db As Database
Dim rs As Recordset
Dim VRegis As Integer
Dim VCodigo As String, VServi1 As String

Set db = CurrentDb
Set rs = db.OpenRecordset("Select * From TPEMAR Order by Codigo, Fecha")

rs.MoveFirst
Do While Not rs.EOF
VCodigo = rs!Codigo
VRegis = DMax("[Servi1_Cal]", "TPEMAR", "[Codigo] = '" & VCodigo & "'")
Do While rs!Codigo = VCodigo 'And Not rs.EOF
If rs!Servi1_cal = VRegis Then
VServi1 = "1"
Else
VServi1 = "0"
End If
rs.Edit
rs!Servi1 = VServi1
rs.Update
rs.MoveNext
If rs.EOF Then
Exit Do
End If
Loop
rs.MoveNext
If rs.EOF Then
Exit Do
End If
Loop

rs.Close
MsgBox "Ha finalizado el proceso de determinar Servi1"
End Sub