Why This Code Increase Memory Usage

**LeonX** · 08-25-2006, 03:09 AM

Hi guys, i'm a newbie in this forum, and this is my first question here, hope anyone here willing to help.
thanks.

**LeonX** · 08-28-2006, 06:48 AM

hello there ...
i don't believe if everyone here can't help me

**broro183** · 08-28-2006, 07:04 AM

Hi,

Try posting the problem code as text within a post & you'll be more likely to get an answer because not many people feel like trusting/risking enough to download & open unknown attachments.

hth
Rob Brockett
NZ
Always learning & the best way to learn is to experience...

**tmiley** · 08-29-2006, 03:48 PM

Hey you might want to read the article located here. http://www.microsoft.com/technet/scr.../tips1103.mspx

It should give you the information you need.

**LeonX** · 08-30-2006, 02:32 AM

Here it is, the code with the problem

Option Explicit

Public con As New ADODB.Connection
Public rs As New ADODB.Recordset

Public Sub RetrieveData()
If (con.State = adStateOpen) Then Call con.Close
Call con.Open("Provider=MSDASQL.1;Extended Properties=""DSN=Excel Files;DBQ=" & ThisWorkbook.FullName & ";DefaultDir=" & ThisWorkbook.Path & ";DriverId=790;MaxBufferSize=2048;PageTimeout=5;""")
If (rs.State = adStateClosed) Then
Call rs.Open("SELECT T.* FROM T", con, adOpenStatic, adLockReadOnly, adCmdText)
Else
Call rs.Requery
End If
' Call rs.MoveNext 'why this operation increase memory usage???
' Call MsgBox(rs.RecordCount) 'and this one too. how to anticipate this?
End Sub