Perchè sbagli approccio. Innazitutto il recordset va aperto altrove, al di fuori della routine di 'avanti' altrimenti come fai ogni volta ad avanzare di uno?

Quindi, una sola volta all'interno del tuo programma:

codice:
    Call connettiArchivio
    Rs.Open strSQLArchivio
    Rs.MoveLast
    rsTotale = Rs.RecordCount
      'torna al primo record
    Rs.MoveFirst
poi

codice:
Private Sub cmdAvanti_Click()
    
    if not rs.EOF then
      Rs.MoveNext
      'Trova il numero di record corrente
      intRecordCorrente = Rs.AbsolutePosition
      'Aggiorna il contenuto della etichetta
      'con il numero del nuovo record corrente
      lblContaRecord.Caption = "Pagina" & intRecordCorrente & " di " & rsTotale & ""
      CaricaImmagine (App.Path & "\544CANON\" & Rs!AC_pagina_file)
    End If

End Sub