Ayuda para llenar MSFlexgrid en VB6 con datos de MySQL

[Hitch]

bueno primero que quieres llenar un msflexgrid o un mshflexgrid SON DIFERENTES

EJEMPLO ESTA ES UNA FUNCION

Public Function LlenarFlex(ByRef obj As Object, Optional ByVal cond As String = "")
Dim cad As String
cad = "SELECT * FROM CLIENTE"
If cond <> "" Then cad = cad & " WHERE " & cond
Dim Ado As New ADODB.Recordset
If Ado.State = 1 Then Ado.Close
Ado.CursorLocation = adUseClient
Ado.Open cad, Cxn
obj.Rows = 1
Do Until Ado.EOF
obj.AddItem Ado("ID_CLI") & vbTab & C & vbTab & Ado("RAZ_SOC_CLI") _
& vbTab & Ado("CONT_CLI") & vbTab & Ado("OBS_SEG")
Ado.MoveNext
Loop
Ado.Close
Set Ado = Nothing
End Function

ESO ES TODO