Llenar un MsFlexgrid con un recorset

[franko1809]

Con el MsHFlexgrid se hace asi

Código:

Private Sub Form_Load()

    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    With rs
        .ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
            App.Path & "\SYSTEM_DB_01.mdb"
        .CursorType = adOpenStatic
        .CursorLocation = adUseClient
        .Open "Select * from producto"
    End With
    Set MSHFlexGrid1.DataSource = rs
   
End Sub

pero creo que con el msflexgrid no se puede ó si??, antes busque y no encontre nada tube que cargarlo mediante un bucle for