ADo问题，提示对象变量或with变未设置,是什么原因????

Question

Dim Conn As ADODB.Connection
    Dim Rs As ADODB.Recordset
    Set Conn = New ADODB.Connection
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
    sql = "select * from mytad order by id desc"
    Rs.Open sql, Conn, 1, 1谢谢

Answer 1

Dim Rs As ADODB.Recordset
这个只是定义
还要实例化
这样：
Dim Rs As New ADODB.Recordset

Answer 2

Dim Rs As ADODB.Recordset
set rs=new ADODB.Recordset