Comment utiliser 1 Flexgrid

Mon applic n'utilise pas de contrôle qui le lie avec Access,j'utilise ODBC pour faire le lien.
Mon pb est le suivant:
Comment remplir 1 flexgrid avec les données provenant d'une table Access.
Merci d'avance.
Tst

'Construction du FlexGrid

HFlex.Row = 0
For iColonne = 0 To 1 'je l'initialise à 2 colonnes
With HFlex
.Col = iColonne
.ColWidth(0) = 3500 'largeur des colonnes
.ColWidth(1) = 3600
.ColAlignment(iColonne) = 1
.CellAlignment = 1
.AllowUserResizing = flexResizeNone
Select Case iColonne
Case 0
.Font.Size = 10 ' titre des colonnes
.Text = "Nom du proriétaire"
Case 1
.Font.Size = 10
.Text = "Tantième"
End Select
End With
Next iColonne

HFlex.Rows = QLigne + 1 'qligne=nbre ligne du
' recordset

Do Until Rds.EOF
For i = 0 To QLigne - 1
For iLigne = 1 To 1
For iColonne = 0 To 1
HFlex.Row = i + 1
HFlex.Col = iColonne
HFlex.Text = Rds.Fields(iColonne)
Next iColonne
Next iLigne
Next i
Loop

'Autre solution
'Supprimer la boucle iColonne et remplacer la
'ligne
HFlex.Text = Rds.Fields(iColonne)
par ces deux lignes

HFlex.TextMatrix(1, 0) = Rds!nom
HFlex.TextMatrix(1, 1) = Rds!tantiemes




-------------------------------
Réponse au message :
-------------------------------

Mon applic n'utilise pas de contrôle qui le lie avec Access,j'utilise ODBC pour faire le lien.
Mon pb est le suivant:
Comment remplir 1 flexgrid avec les données provenant d'une table Access.
Merci d'avance.
Tst