Using the MSHFlexGrid

How I use the MsHFlexGrid in an only recordset ? I want put the data hieraquily, putting the data with header the columns

Not sure what you want.
You can use data control. Or you can fill through the code:

Code:

---

Private Sub Form_Load()

'set FixedCols=0
'set fixedRows=1
'looks better
Dim db As Database
Dim rs As Recordset
Dim strSQL As String
Dim i As Integer
Dim intRow As Integer
Dim intCol As Integer

Set db = OpenDatabase("Nwind.mdb")
strSQL = "select CustomerID,CompanyName,Address from customers order by CompanyName desc "
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
If rs.EOF And rs.BOF Then Exit Sub
rs.MoveLast

MSFlexGrid1.Rows = rs.RecordCount + 1
MSFlexGrid1.Cols = rs.Fields.Count
rs.MoveFirst
intRow = 1

Do Until rs.EOF
 For i = 0 To rs.Fields.Count - 1
                       
                MSFlexGrid1.TextMatrix(0, i) = rs.Fields(i).Name
       
                MSFlexGrid1.TextMatrix(intRow, i) = LTrim(rs.Fields(i).Value) & "" 'or Format(rs.Fields(i).Value) if rs has Null value
               
    Next
   
    rs.MoveNext
    intRow = intRow + 1
   
Loop

---