关于ADODB.Stream对象的内存释放问题

最近写了段代码，作用是将数据库中某Upload表中的Binary字段导成文件

Dim i,arrayTemp,strSQL

i = 0

Set bSourceData = createobject("ADODB.Stream")

bSourceData.Type = 1

bSourceData.Mode = 3

While Not objRs.Eof

'导出文件

strFileName = Year(Now) & Month(Now) & Day(Now) & Hour(Now) & Minute(Now) & Second(Now) & i

arrayTemp = Split(objRs("FileName"),".")

strSuffix = "." & arrayTemp(UBound(arrayTemp))

bSourceData.Open

bSourceData.Write objRs("BinaryData")

bSourceData.SaveToFile strFolder & strFileName & strSuffix

bSourceData.Close

i = i + 1

objRs.MoveNext

WEnd

objRs.Close

Set objRs = Nothing

objConn.Close

Set objConn = Nothing

Set bSourceData = Nothing

文件能保存成功，关键是内存上去了，可怎么都下不来，共导出了100多M的文件，服务器上的内存也要跟着上升100多M，等待N久，仍不释放，请高手指点！

[704 byte] By [msdn] at [2007-8-15 10:03:27]