Visual Basic - MSHFlexGrid

me gustaria si se puede rellenar un MSHFlexGrid con un objeto ado
si pueden enviarme algun codigo de ejemplo seria bastante util

gracias

Private Sub Form_Load()
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\Neptuno.mdb;Persist Security Info = False"
rs.Open "select * from Pedidos", db, adOpenStatic, adLockReadOnly
rs.MoveFirst
MSHFlexGrid1.Rows = rs.RecordCount + 1
MSHFlexGrid1.Cols = rs.Fields.Count
MSHFlexGrid1.Row = 0
MSHFlexGrid1.Col = 0
MSHFlexGrid1.RowSel = MSHFlexGrid1.Rows - 1
MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1
Me.MSHFlexGrid1.Clip = rs.GetString(adClipString, -1, Chr(9), Chr(13), vbNullString)
MSHFlexGrid1.Row = 0
Set db = Nothing
Set rs = Nothing
End Sub
Espero que sea esto lo que buscas.
Saludos

La solucion anterior funciona, pero una mas simple seria

Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\Neptuno.mdb;Persist Security Info = False"
rs.Open "select * from Pedidos", db, adOpenStatic, adLockReadOnly
set mshflexgrid1.datasource=rs