如下是模块里定义的函数，请问该怎么解决相应问题？

Question

Public Function Open_rst_from_str(ByVal str As String) As ADODB.RecordsetOn Error GoTo er:Dim rs As ADODB.RecordsetSet rs = New ADODB.Recordsetrs.CursorLocation = adUseClientrs.CursorType = adOpenDynamicrs.LockType = adLockOptimisticrs.Open str, conn, , , adCmdTextSet Open_rst_from_str = rsExit Functioner:Open App.Path & "\日志\日志.txt" For Append As #1Print #1, Now & " 查询出错 ：" & err.Description & " sql: " & strClose #1End Function'程序里调用dim rs As ADODB.Recordset '公共strSql = "select ……"Set rs = Open_rst_from_str(strSql)……rs.Close’ strSql = "select ……"Set rs = Open_rst_from_str(strSql)……rs.Close多次调用后内存就爆满了，我想问，1如上我的代码怎么释放内存呢？2哪个地方引起的内存没释放呢？刚接触vb，望大虾能耐心讲解下，项目里非常非常频繁的使用那个函数，有时候1秒内便查询近10次以上，小程序安装在服务器的，长久下去服务器必死啊。。

Answer 1

Open_rst_from_str里定义的rs对象与调用时定义的rs对象是两个不同的对象，你在Open_rst_from_str函数里不释放rs对象，会导致连接数据库服务器的session数只增不减，服务器当然会S翘翘啦。