对象打开时，不允许操作。 vb封装asp

在做树型目录时出现的，以下是部分代码

VB code:

Function TreeMenu(id)
sql = "select * from Class where CateID=1"
rs.Open sql, cover, 1, 1
While Not rs.EOF
Response.Write rs("Name")
TreeMenu (rs("id"))
rs.MoveNext
Wend
rs.Close
End Function



现在问题的原因知道，是在调用子函数时rs重复打开了
但这个现像在iis的asp里是没问题的，用vb封装到dll里就报错了

该怎么解决啊？

---

为什么不nothing释放下？？

---

引用

为什么不nothing释放下？？

因为我的rs是定义成全局变量的，如果释放掉就彻底关了

---

而且释放也没用
Function TreeMenu(id)
sql = "select * from Class where CateID=1"
rs.Open sql, cover, 1, 1
While Not rs.EOF
Response.Write rs("Name")
TreeMenu (rs("id"))
rs.MoveNext
Wend
rs.Close
set rs=nothing
End Function
这样也不行，因为在释放前就调用TreeMenu函数了

---

你这个应该用的时候打开.不用就关闭.