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次以上，小程序安裝在服務器的，長久下去服務器必死啊。。