Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
cn.Open
Dim rs As New ADODB.Recordset
rs.CursorLocation = 3
rs.Open "select * from table1", cn
MSHFlexGrid1.ColWidth(0) = 0
Set MSHFlexGrid1.DataSource = rs
MSHFlexGrid1.FixedCols = 2