Ayuda para llenar MSFlexgrid en VB6 con datos de MySQL

[Avellaneda]

Mira, te pongo un sencillo ejemplo: Aquí al seleccionar una fila del Grid, se mostrarán los datos de la fila selecciona en unos TextBox.

Código:

Private Sub MSHFlexGrid1_Click()
Dim Buscar As String
Buscar = MSHFlexGrid1.TextMatrix(0, MSHFlexGrid1.Col) & " = '" & MSHFlexGrid1.Text & "'"
With recSQL
    .Find Buscar
    Text1.Text = .Fields(0)
    Text2.Text = .Fields(1)
    ' y así hasta tantos campos o TextBox quieras mostrar
End With
End Sub

Nota: La variable recSQL la tienes que declarar al principio del módulo (o como public en un bas)

Un saludo