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

[freebirdwjy]

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
请问是什么原因？ 谢谢

[pcwe2002]

代码改成这样试试

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

[freebirdwjy]

还是一样

[SCLIREN]

你用Microsoft Hierarchical FlexGrid Control试试

[freebirdwjy]

我是改一个老程序，里面有很多代码，不太好换。谢谢

[freebirdwjy]

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

[CathySun118]

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