Visual Basic - COMO FLEXGRID

Hola mi nonbre es Humberto:

Espero no molestarte con esto, tu correo lo obtuve de www.lawebdelprogramador.com. y espero me puedas ayudar.

Te explico:

Private Sub FlexMoral_Click()
Static i As Integer

FlexMoral.SelectionMode = flexSelectionByRow
For i = 1 To Me.FlexMoral.Cols - 1
IngresoMoral(i - 1).Text = Me.FlexMoral.TextMatrix(FlexMoral.Row, (i))
Next i
Con esto cargo toda una fila del flex y jalo la informacion del flexgrid a sus campos correctos.

ComboMoral(0).Text = IngresoMoral(4).Text
ComboMoral(1).Text = IngresoMoral(5).Text
ComboMoral(2).Text = IngresoMoral(6).Text

End Sub

Con esto igualo los combobox a el texto del las cajas.

Private Sub EditaM_Click()
If EditaM.Caption = "&Editar" Then
EditaM.Caption = "&Guardar"
Call Habilita
Else
BarraEstado.Panels(1).Text = "Guardando."
RsMoral.Edit
RsMoral!RazonSocial = IngresoMoral(0).Text
RsMoral!Calle = IngresoMoral(1).Text
RsMoral!CodigoPostal = IngresoMoral(2).Text
RsMoral!Delegacion = IngresoMoral(3).Text
RsMoral!Colonia = IngresoMoral(4).Text
RsMoral!TipodeMoneda = IngresoMoral(5).Text
RsMoral!FormadePago = IngresoMoral(6).Text
RsMoral!VigenciaInicio = IngresoMoral(7).Text
RsMoral!VigenciaFin = IngresoMoral(8).Text
RsMoral!RFC = IngresoMoral(9).Text
RsMoral.Update
RsMoral.Close
BarraEstado.Panels(1).Text = "Guardado."
EditaM.Caption = "&Editar"
FlexMoral.Refresh
Call InHabilita
End If
End Sub

Ahora mi problema es que una vez ya seleccionada una fila y con la informacion en sus campos correctos la quiero editar, pero nunca me edita el campo que le pido sino pase lo que pase me edita siempre el segundo de arriba hacia abajo.

Pense en lo siguiente:

for i=0 to ? (¿Que condicion hay que darle?)
if ? = Fila donde selccione con el evento click
muevete al registro donde se iso click
EDITALO
end if
next i

Pues ya no se ni que onda tengo ya muchos rollos en la cabeza pues tengo como dos meses con el mismo programa ... Bueno.

Si me pudieras ayudar te lo agradeceria. :-)