Option Explicit

       Private Sub Command1_Click()

          Dim cn As New ADODB.Connection
          Dim rs As New ADODB.Recordset

          cn.Open "Testing"               '<-- Your DSN

          rs.Open "select * from Test", cn, adOpenStatic, adLockOptimistic
          rs.MoveLast

          ' Check the number records in your ADO recordset
          ' The RecordCount property of the ADO recordset reflects the
          ' actual number of records

          Debug.Print "ADO recordset record-count: " & vbTab & _
              rs.RecordCount

          Form1.Caption = "Loading grid... please wait..."

          Set MSHFlexGrid1.Recordset = rs

          ' Check the number of rows that the Hierarchical FlexGrid
          ' contains The RecordCount property of the Hierarchical
          ' FlexGrid also reflects the actual number of records

          Debug.Print "MSHFlexGrid1 Recordset record-count: " & vbTab &  _
             MSHFlexGrid1.Recordset.RecordCount

          Form1.Caption = "MSHFlexGrid Display Sample"

          ' Free resources
          rs.Close
          Set rs = Nothing
          cn.Close
          Set cn = Nothing

       End Sub

       Private Sub Command2_Click()

          Form1.Caption = "Loading data... please wait..."

          ' Set the Grid's source to be ADODC
          Set MSHFlexGrid1.DataSource = Adodc1

          ' Check the number of records in ADODC recordset
          Debug.Print "ADO data control record-count: " & vbTab &  _
             Adodc1.Recordset.RecordCount
          Form1.Caption = "MSHFlexGrid Display Sample"
       End Sub

       Private Sub Command3_Click()
          MSHFlexGrid1.Clear
          Form1.Caption = "Grid is clear now..."
       End Sub