Uso de MSFLEXGRID Visual 6 Ayuda! Urgente

Tienes que programar el evento click o doble click dependiendo de la acción del usuario y de ahí tomar el valor que quieres buscar.
Checa el siguiente código y adáptalo a lo que requieres.
Option Explicit
Dim rsClone As New ADODB.Recordset
Private Sub cmdAnterior_Click()
' se mueve al anterior registro.
rsClone.MovePrevious
If rsClone.BOF Then
rsClone.MoveFirst
End If
Inicia_Controles
Coloca_Datos
Me.MSFlexGrid1.col = 1
If Me.MSFlexGrid1.row <= 1 Then
Me.MSFlexGrid1.row = 1
Else
Me.MSFlexGrid1.row = Me.MSFlexGrid1.row - 1
End If
Me.MSFlexGrid1.ColSel = 1
End Sub
Private Sub cmdCancelar_Click()
If cmdNuevo.Caption = "Aceptar" Then
cmdNuevo.Caption = "Nuevo"
Call cmdInicio_Click
End If
If cmdModificar.Caption = "Aceptar" Then
cmdModificar.Caption = "Modificar"
fraDatos.Enabled = False
End If
End Sub
Private Sub cmdFinal_Click()
' se coloca en el final del recordset.
rsClone.MoveLast
Inicia_Controles
Coloca_Datos
Me.MSFlexGrid1.col = 1
Me.MSFlexGrid1.row = Me.MSFlexGrid1.Rows - 1
End Sub
Private Sub cmdInicio_Click()
' se coloca en el inicio del recordset.
rsClone.MoveFirst
Inicia_Controles
Coloca_Datos
Me.MSFlexGrid1.col = 1
Me.MSFlexGrid1.row = 1
End Sub
Private Sub cmdModificar_Click()
Dim sQuery As String
sQuery = ""
If cmdModificar.Caption = "Modificar" Then
cmdModificar.Caption = "Aceptar"
fraDatos.Enabled = True
Me.cmdCancelar.Enabled = True
Me.cmdNuevo.Enabled = False
Me.txtStatus.SetFocus
Else
' se procede a generar la sentencia de actualización de datos
sQuery = "UPDATE Bancos SET IdStatus = " & Val(Me.txtStatus.Text) & "," & Chr(13)
sQuery = sQuery & " Banco = '" & Trim$(Me.txtDescripcion.Text) & "'," & Chr(13)
sQuery = sQuery & " CveBanco = '" & Trim$(Me.txtClaveBanco.Text) & "'," & Chr(13)
sQuery = sQuery & " Cuenta = '" & Trim$(Me.txtCuenta.Text) & "'" & Chr(13)
sQuery = sQuery & " WHERE IdBanco = " & Val(Me.txtClave.Text)
' se ejecuta la sentencia
Cn.BeginTrans
If Err Then
MsgBox (Err.Number & " " & Err.Description)
Cn.RollbackTrans
cmdModificar.Caption = "Modificar"
Me.cmdCancelar.Enabled = False
fraDatos.Enabled = False
Carga_Datos
Coloca_Datos
Me.cmdNuevo.Enabled = True
Exit Sub
End If
Cn.Execute (sQuery)
If Err Then
Cn.RollbackTrans
Else
Cn.CommitTrans
End If
cmdModificar.Caption = "Modificar"
Me.cmdCancelar.Enabled = False
fraDatos.Enabled = False
Carga_Datos
Coloca_Datos
Me.cmdNuevo.Enabled = True
End If
End Sub
Private Sub cmdSiguiente_Click()
' se mueve al siguiente registro.
rsClone.MoveNext
If rsClone.EOF Then
rsClone.MoveLast
End If
Inicia_Controles
Coloca_Datos
Me.MSFlexGrid1.col = 1
If Me.MSFlexGrid1.row + 1 >= Me.MSFlexGrid1.Rows - 1 Then
Me.MSFlexGrid1.row = Me.MSFlexGrid1.Rows - 1
Else
Me.MSFlexGrid1.row = Me.MSFlexGrid1.row + 1
End If
Me.MSFlexGrid1.ColSel = 1
End Sub
Private Sub cmdNuevo_Click()
Dim sQuery As String
Dim rsPaso As N