关于RECORDSET变量的问题

Question

请问，在ACCESS的模块中，定义了两个RS变量，分别指向不同的表，当循环执行到第二个RS是，遇到错误，“要求对象”各位高手，帮忙解决一下

Answer 1

楼上， 还在吗？这个程序的主要目的时进行图的宽度优先遍历。在node_a表中，存放节点的信息，在aaa中存放关系的信息
Dim Rs As ADODB.Recordset
Dim tRs As ADODB.RecordsetSet tRs = New ADODB.Recordset
Set Rs = New ADODB.RecordsetSTemp = "select * from node_a"
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Rs.MoveFirst
i = 0
For j = 1 To Rs.RecordCount
    针对node_a中的节点搜索与其相关联的节点放到TEMP中
    tTemp = "select * from temp"
    tRs.Open tTemp, CurrenProject.Connection, adOpenKeyset, adLockOptimistic      /当程序运行到此处遇到错误，错误提示为“要求对象”，也就是，CONNECTION对象没有连接
    Do While Not tRs.EOF
       tRs.MoveFirst
       针对TEMP中的节点搜索与其相关联的节点也放到TEMP中
    Loop
End If
   Rs.MoveNext
Next j
MsgBox "程序执行完毕"