Set CON = New ADODB.Connection
CON.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\FlexGridSample.mdb;"
Set RS = New ADODB.Recordset
RS.Open "SELECT * FROM TableName", CON, adOpenStatic, adLockBatchOptimistic
set MSFlexgrid.DataSource = RS
Dim i as Long, j as Long
For i = 1 To RS.RecordCount 'this loop is for rows
For j = 1 To RS.Fields.Count 'this loop is for Columns
MSFlexgrid.TextMatrix(i, 1) = Format(RS! SecondFieldName,"###.#") 'Your format of only 1 decimal. See (i,1) where 1 is the second coloumn
Attached a more detailed grid and comment help for you.