riposto perchè ancora devo risolvere tale problema

Ho dieci label sulle quali visualizzo il contenuto di record.
Tramite due pulsanti vorrei visualizzare i record 10 per volta
Avanti va tranquillamente indietro ho qualche problema.
Avevo pensato di scrivere il codice utilizzando record.move ma non funziona bene

codice:
Private Sub Command2_Click()
Command1.Enabled = True
recordpos = recordpos - 10
record.move recordpos
For k = 1 To 10
Y=11-k
record.previous
Label1(k).Caption = record.Fields(1).Value
Label2(k).Caption = record.Fields(2).Value
Label3(k).Caption = record.Fields(3).Value
Next k
no funziona come dovrebbe

Inoltre cosa molto strana il ciclo contrario 10 --> 1 non me lo legge e me lo salta.


End Sub