[VB6] Spostarsi in Access con passo 5

[Magicolotto]

e se bisognerebbe andare indietro passo 10 ?

Private Sub cmdPrevious_Click()
' con questi due conteggi azzeriamo il colore da rosso in bianco delle celle
              
  On Error GoTo GoPrevError

  If Not adoPrimaryRS.BOF Then adoPrimaryRS.MovePrevious
  If adoPrimaryRS.BOF And adoPrimaryRS.RecordCount > 0 Then
    Beep
    'è stata superata la fine e quindi torna indietro
    adoPrimaryRS.MoveFirst
  End If
  'visualizza il record corrente
  mbDataChanged = False

  Exit Sub

GoPrevError:
  MsgBox Err.Description
End Sub