Access - Ayuda Progrma memorias de gimnastas (resultados)

Al comparar dos valores identicos, se pasan como si el if fuera falso. solo lo realiza con el primer registro, posteriormente al comparar nuevos valores que son identicos no los toma en cuenta como iguales. el procidimento lo realizo paso a paso y no veo error al comparar. este el parte del codigo.

La idea principal. es que valores de totalx y totalant del if si son iguales no me haga sumar el valor de NOTAen caso contrario sume NOTA + 1 ( es comparando el valor del registro anterior) .

la tabla gimnasta ya esta ordenada de mayor a menor y si se encuentra valores iguales, cabe aclarar que el campo TOTAL es un campo calculado de la suma de 4 campos que guarda el valor de las calificaciones de gimnastas de PISO,BARRAS,VIGA Y SALTO.

Private Sub CALCULA_Click()

Dim dbsMemorias As DAO.Database
Dim rstGimnasta As DAO.Recordset

Set dbsMemorias = OpenDatabase("c:\proyecto\Memorias.accdb")

Set rstGimnasta = CurrentDb.OpenRecordset("select * from gimnasta ORDER BY TOTAL DESC", dbOpenDynaset)

totalant = 0
totalact = rstGimnasta("Total")
totalx = rstGimnasta("Total")
x = 1


With rstGimnasta
.MoveFirst

i = 0

Do While i < rstGimnasta.RecordCount

.Edit
f = rstGimnasta("id")
g = rstGimnasta("item")
h = rstGimnasta("nombre")


totalant = totalact

If totalx = totalant Then
' no suma el valor de la posicion
NOTA = x
Else
x = x + 1 'suma cuando no es igual al anterior
NOTA = x
End If
rstGimnasta("ltotal") = NOTA
.Update
.MoveNext
totalx = totalant
i = i + 1
If i = rstGimnasta.RecordCount Then Exit Do
totalact = rstGimnasta("total")

Loop

.Close

End With

dbsMemorias.Close

End Sub

algun comentario o solucion gracias.