Visual Basic - FLEXGRID ayuda

Tengo un formulario donde agrego clientes y lo q hago es hacer una consulta sql para q me muestre los datos de un cliente,hasta aqui bien, pero esta es mi duda el relsultado me los muestra en un FLEXGRID y quiero q cuando haga 2 click sobre una de las Filas me muestre los datos del cliente me muestre ese cliente en el formulario

Private Sub grilla2_DblClick()
grilla2.Col = 0
If grilla2.Text <> "" Then
Mostrar_datos
pa_grilla.Visible = False es el frame de la grilla
bo_salir.Enabled = True activo el boton salir
pa_informacion.Enabled = True habilito el formulario de datos
in_cliente.setfocus le doy el foco a un acampo del formulario
End If
End Sub
Private Sub grilla2_EnterCell()
grilla2.CellBackColor = Celeste cambio de color cuando pase por una celda a celeste
End Sub
Private Sub grilla2_GotFocus()
grilla2.CellBackColor = Celeste cuando recibe el foco tambien lo coloco en celeste
End Sub
Private Sub grilla2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then grilla2_DblClick cuando presiona enter lo llevo el evento de doble click
End Sub
Private Sub grilla2_LeaveCell()
If grilla2.Row <> 0 Then cuando se cambia de celda cambio
grilla2.CellBackColor = Blanco la celda a blanco
End If
End Sub
Private Sub Mostrar_datos()
grilla2.Col = 0 aca empiezo a mover los datos a
in_campo1 = Trim(grilla2.Text) el formulario tomo el valor de la
grilla2.Col = 1 columna y lo muevo al campo
in_campo2 = Trim(grilla2.Text)
grilla2.Col = 2
in_campo3 = Trim(grilla2.Text)
End Sub

Otra forma de hacerlo amiga Kiwa y para ti amiga Carla Castillo, les ofresco este código;

'Si el nombre del FLEXgrid se llama Rejilla

Private Sub Rejilla_DblClick()
' Si el usuario hizo un click en una fila
' entonces se obtiene el código de ese registro
If Rejilla.Rows > 0 Then
codigo.Text = Rejilla.TextMatrix(Rejilla.Row, 0)
End If

' Se busca ese registro mediante el código
buscar codigo.Text
End Sub

' Función buscar
Public Function buscar(cod As String) As Boolean
MiConsulta.MoveFirst
Do While Not MiConsulta.EOF
If Val(cod) = MiConsulta!codigo Then
Muestradatos
Exit Do
End If
MiConsulta.MoveNext
Loop
End If
End Function

Public Sub Muestradatos
codigo.text=MiConsulta!codigo
nombre.text=MiConsulta!nombre
direccion.text=MiConsulta!direccion
End sub

Es muy práctico suerte...