vsflexgrid绑定recordset出错，求助，谢谢

Question

Private Sub Form_Load()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\CleverWeb\Version 4\Reports4 v2\MonitorUR.mdb;Persist Security Info=False"
    cn.Open
    
    Set rs = New ADODB.Recordset
    Set rs.ActiveConnection = cn
    
    rs.Open "SELECT * FROM responsetimes", cn, 1, 1
    
    VSFlexGrid1.DataMode = flexDMBound
    Set VSFlexGrid1.DataSource = rs
    VSFlexGrid1.Editable = flexEDNone
End Sub
报错如下：
object variable or with block variable not set
请问是什么原因？ 谢谢

Answer 1

代码改成这样试试Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\CleverWeb\Version 4\Reports4 v2\MonitorUR.mdb;Persist Security Info=False"
    cn.Open    
    rs.Open "SELECT * FROM responsetimes", cn, 1, 1
    
    VSFlexGrid1.DataMode = flexDMBound
    Set VSFlexGrid1.DataSource = rs
    VSFlexGrid1.Editable = flexEDNone

Answer 2

你用Microsoft Hierarchical FlexGrid Control试试

Answer 3

原来是一个data控件和vsfelxgrid绑定的，报“couldn't find installable ISAM”的错误，没法解决，我想换成ado recordset，可是还是出错。

Answer 4

把Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
去掉