vsflexgrid绑定recordset出错，求助，谢谢
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
请问是什么原因？ 谢谢

[解决办法]
代码改成这样试试

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

[解决办法]
你用Microsoft Hierarchical FlexGrid Control试试
[解决办法]
把Set cn = CreateObject( "ADODB.Connection ")
Set rs = CreateObject( "ADODB.Recordset ")
去掉