cargar MSHFlexgrid

[franko1809]

Activa la referenccia microsoft active x data object 2.1 library

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