DataBound Flex grid

Hi All.
Does anyone have any source that binds a
msflexgrid to an ado recordset?
I dont think it works, Im hoping someone can
prove me wrong.

It is much better to enter records to the flexgrid without using bound controls

Here the code how to enter rs to flexgrid

Set MyCon = CreateObject("ADODB.Connection")
MyCon.Open "dsn=TestDB_dsn"


Set ADC = CREATEOBJECT("ADODB.RECORDSET")

ADC.Open "SELECT * FROM " & r, MyCon, , , adOpenKeyset

MSFlexGrid1.Cols = ADC.Fields.Count + 1

Dim V

Do While Not ADC.EOF
V = V + 1
ADC.MoveNext
Loop

ADC.MoveFirst
MSFlexGrid1.Rows = V + 1
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 1
ADC.MoveFirst
Dim MyResource
MyResource = ADC.GetString

MsFlexGrid1.Cols = ADC.Fields.Count
For X = 0 To ADC.Fields.Count - 1
MSFlexGrid1.TextMatrix(0, X) = ADC.Fields(X).Name
Next
MSFLEXGRID1.Row = 1
MSFLEXGRID1.Col = 0
MSFLEXGRID1.RowSel = MSFLEXGRID1.Rows - 1
MSFLEXGRID1.ColSel = MSFLEXGRID1.Cols - 1
MSFLEXGRID1.Clip = MyResource
MSFLEXGRID1.RowSel = MSFLEXGRID1.Row
MSFLEXGRID1.ColSel = MSFLEXGRID1.Col


Iouri Boutchkine
[email protected]