'Create an ADO Connection and Recordset by inserting the following code, replacing the comments as appropriate  
 '(for example, replace <myDataSource> with the actual name of your data source): 
DIM Cn As New Connection, Rs As New Recordset

 ' You need to replace <myDataSource> with a valid 
 ' DSN on your system. 
Cn.ConnectionString = "DSN=<myDataSource>"

 ' Use the following code for SHAPE Commands 
Cn.Provider = "MSDataShape"
Cn.CursorLocation = adUseNone

 ' Alternatively, for SQL Commands, use the following code 
Cn.CursorLocation = adUseNone

Cn.Open

 ' You need to specify a valid data source for  
 ' your Recordset for the Connection created above 
Rs.Source = "<valid SQL SELECT command>"

 ' Now associate the Command with the Connection 
 ' and execute them. 
Set Rs.ActiveConnection = Cn
Rs.Open

 'Assign the open Recordset in Rs to the Hierarchical FlexGrid by inserting the following code: 
Set MSHFlexGrid1.DataSource = Rs