¿Cómo llenar un flexgrid?

Hi que tal como estas, aquí te recomendaría que uses el Listview se ve más elegante que el MsFlexGrid
Aquí un poco de código
Public Sub Conectar()
    Dim X As Object
    Set Cn = New ADODB.Connection
    With Cn
         .ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sA;pWD=sa;Initial Catalog=NOMBREDELABASEDEDATOS"
         .Open
    End With
    End Sub
Sub AccesoTabla(Rs As ADODB.Recordset, Tabla As String)
        Conectar
        Set Rs = New ADODB.Recordset
        With Rs
            .CursorLocation = adUseClient
            .CursorType = adOpenDynamic
            .LockType = adLockOptimistic
            .Open Tabla, Cn
        End With
    End Sub
En el Formulario
General Declaraciones
Private RsListado  as adodc.recordset
 en Form LoAD
Accesotabla(RsListado, " Escribe la consulta completa o solo puedes poner una variable donde se encuentre
todo el Select para tu listado")
Sub LlenarListview
    While RsListado.EOF = False
        Set LST = ListView1.ListItems.Add(, , RsListado!Campo1)
            LST.SubItems(1) = RsListado!Campo2
            LST.SubItems(2) = RsListado!Campo3
            LST.SubItems(3) = RsListado!Campo4
            LST.SubItems(4) = RsListado!Campo5
RsListado.MoveNext
End Sub

Ok
Dejame intentar,
gracias, saludos