Visual Basic - conectar un dataenviroment en un MSFlexGrid

hola a todos... sucede que tengo un recordset y quisiera conectar mediante un diseñador dataenviroment en un MsFlexGrid... que codigo ulitizo?

y por ultimo que me recomiendan conectar en un datagrid, Msflexgrid o MSHFLEXGRID. cual es el mas completo... ya que mas adelante quisiera poner colores en las columnas, filas

les agradecere al que me entienda su respuesta
manuel

Sabes puedes hacer esto. . .
Puesto que tienes un recordset llamado RS

with mshflexgrid
.formatstring="aqi le das formato"
.rows= 1
do until rs.eof
.rows = .rows +1
.textmatrix(.rows -1, 1) = rs(0) 'primera columna del mshflexgrig
.texma....... y asi sucesivamnt

rs.movenext
loop
rs.close

end with

muchas gracias ricardo por tu respuesta... quisiera ser un poco mas preciso con la pregunta...sucede de que me distes un ejemplo utilizando un Hierarchical Flexgrid control 6.0.... pero mi pregunta era utilizando el FlexGrid control 6.0

te pongo el codigo que estoy utilizado, funciona... pero quiero enlazar un dataenviroment que esta en instruccion SQL en un Grid1(MsFlexgrid).... quizas tenga que cambiar algo en este codigo ... me ayudas please...te agradecere infinitamente

Dim Cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
ChDir App.Path
Cn.ConnectionString = "Zaga.mdb"
Cn.Open
rs.Open "SELECT * FROM CLIENTE", Cn, adOpenKeyset, adLockOptimistic
rs.MoveFirst
configurar_grilla
Do While Not rs.EOF
Grid1.AddItem rs.Fields("COD_CLIENTE") & vbTab & rs.Fields("RAZON_SOCIAL")& vbTab & rs.Fields("NOMBRE_COMERCIAL") & vbTab & rs.Fields("RUC")
rs.MoveNext
Loop
End Sub

Private Sub configurar_grilla()
On Error GoTo err
With Grid1
.FixedCols = 0
.Cols = 0
.FixedRows = 1
.Rows = 1
.SelectionMode = flexSelectionByRow
.AllowUserResizing = flexResizeColumns
.FormatString = " Codigo |Razon Social |Nombre "
End With
Exit Sub
err:
Resume Next
End Sub