MSFLEXGRID problem

i have a problem with flexgrid's in VB6.

i have a flexgrid that is linked to an MS Access database file via ADODB code.
the problem is that the flexgrid at run-time shows 2 rows from a specified table within the DB file. i want to be able to click on a row - i.e - the second one (index value = 2) and move it one place down.

i want to solve this problem by clicking on a command button called 'DOWN', but i dont know when to start. the code currently looks like this:

Private Sub CmdDown_Click()

Dim lngRow As Long

With Me.MSFlexGrid1
lngRow = .Row + 1

'make sure the row is not being moved onto a Fixed Row.
If lngRow >= .FixedRows Then
.RowPosition(.Row) = lngRow

End If

End With

End Sub

You posted this same question before.