[VB6] Scorrere una MSHFlexGrid

[Magicolotto]

Ciao ragazzi
con queste due sub scorro la griglia

Private Sub cmd_giu_Click()
Dim x As Variant
datPrimaryRS.MoveLast
x = datPrimaryRS.AbsolutePosition
MSHFlexGrid1.RowPosition(x) = MSHFlexGrid1.MousePointer
MSHFlexGrid1.Refresh
End Sub

Private Sub cmd_su_Click()
Dim x  As Variant
datPrimaryRS.MoveFirst
x = datPrimaryRS.AbsolutePosition
MSHFlexGrid1.RowPosition(x) = MSHFlexGrid1.MousePointer
MSHFlexGrid1.Refresh
End Sub

A CMD_GIU' mi da errore
errore 381
indice non compreso nell'intervallo


mentre a CMD_SU
non da errori, pero' sposta la riga in alto visualizzata una sola volta... poi si ferma





avete qualcosa di meglio??

o magari saresti cosi cortesi da aiutarmi a corregere queste?

[Magicolotto]