BUG: Memory leak occurs when you query an open Excel worksheet by using ActiveX Data Objects (ADO) (319998)

MORE INFORMATION

Steps to Reproduce the Behavior

1. Create or locate an Excel worksheet with rows and columns of data that can be queried using ADO. For example, you can use Excel to import the Customers table from the sample Northwind Access database.
2. In Visual Basic 6.0, create a Standard EXE project. By default, Form1 is created. Set a reference to ADO.
3. Add a module to the project, and then enter the following declarations for application programming interface (API) calls that allow you to check memory usage using Performance Monitor counters:

   Option Explicit
   
   'Performance monitor functions for Visual Basic from PDH.DLL
   Declare Function PdhVbOpenQuery Lib "pdh.dll" _
       (ByRef QueryHandle As Long) As Long
   Declare Function PdhCloseQuery Lib "pdh.dll" _
       (ByVal QueryHandle As Long) As Long
   Declare Function PdhVbAddCounter Lib "pdh.dll" _
       (ByVal QueryHandle As Long, ByVal CounterPath As String, _
       ByRef CounterHandle As Long) As Long
   Declare Function PdhRemoveCounter Lib "pdh.dll" _
       (ByVal CounterHandle As Long) As Long
   Declare Function PdhCollectQueryData Lib "pdh.dll" _
       (ByVal QueryHandle As Long) As Long
   Declare Function PdhVbGetDoubleCounterValue Lib "pdh.dll" _
       (ByVal CounterHandle As Long, ByRef CounterStatus As Long) As Double
   Declare Function PdhVbIsGoodStatus Lib "pdh.dll" _
       (ByVal StatusValue As Long) As Long
   Declare Function PdhVbGetOneCounterPath Lib "pdh.dll" _
       (ByVal PathString As String, ByVal PathLength As Long, _
       ByVal DetailLevel As Long, ByVal CaptionString As String) As Long
   Declare Function PdhVbCreateCounterPathList Lib "pdh.dll" _
       (ByVal DetailLevel As Long, ByVal CaptionString As String) As Long
   Declare Function PdhVbGetCounterPathFromList Lib "pdh.dll" _
       (ByVal Index As Long, ByVal Buffer As String, _
       ByVal BufferLength As Long) As Long
   Declare Function PdhVbGetCounterPathElements Lib "pdh.dll" _
       (ByVal PathString As String, ByVal MachineName As String, _
       ByVal ObjectName As String, ByVal InstanceName As String, _
       ByVal ParentInstance As String, ByVal CounterName As String, _
       ByVal BufferSize As Long) As Long
   					

4. Add a command button to Form1, and then insert the following code in the Click event. This code repeatedly queries an Excel file and displays memory usage in the Debug (Immediate) window.

       Dim cn As ADODB.Connection
       Dim rs As ADODB.Recordset
       Dim i As Integer
       Dim max As Integer
       Dim r As Long
       Dim hPDHQuery As Long            'Handle to performance monitor query
       Dim hPDHCounter As Long          'Handle to performance monitor counter
       Dim strCounterPath               'Path to performance monitor counter
       Dim lngCounterStatus As Long     'Status of counter when checked
       Dim dblPrivateBytes As Double    'Value of counter when checked
       Set cn = New ADODB.Connection
   'Jet connection string.
       cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & App.Path & "\test.xls;" & _
           "Extended Properties=Excel 8.0"
       'Initialize PDH query object.
       r = PdhVbOpenQuery(hPDHQuery)
       'Initialize counter.
   'Edit the value of the "strCounterPath" variable.
       strCounterPath = "\\<computername>\Process(Excel)\Private Bytes"
       r = PdhVbAddCounter(hPDHQuery, strCounterPath, hPDHCounter)
       'Gather data.
       r = PdhCollectQueryData(hPDHQuery)
       'Get counter value and process data.
       dblPrivateBytes = PdhVbGetDoubleCounterValue(hPDHCounter, _
           lngCounterStatus)
       If PdhVbIsGoodStatus(lngCounterStatus) Then
           Debug.Print "Memory used by Excel: " & CLng(dblPrivateBytes)
       Else
           Debug.Print "Invalid data."
       End If
   'Edit the value of the "max" variable.
       max = 100
       ReDim alngPrivateBytes(max)
       For i = 1 To max
           Set rs = New ADODB.Recordset
           rs.CursorLocation = adUseClient
   'Edit the query to reflect the name of the worksheet.
           rs.Open "SELECT * FROM [Customers$]", cn
           Do Until rs.EOF
               rs.MoveNext
           Loop
           rs.Close
           Set rs = Nothing
           r = PdhCollectQueryData(hPDHQuery)
           'Get counter value and process data.
           dblPrivateBytes = PdhVbGetDoubleCounterValue(hPDHCounter, _
               lngCounterStatus)
           'Process data.
           If lngCounterStatus = 0 Then
               Debug.Print "Memory used by Excel: " & CLng(dblPrivateBytes)
               alngPrivateBytes(i) = CLng(dblPrivateBytes)
           Else
               Debug.Print "Invalid data."
               alngPrivateBytes(0) = 0
           End If
       Next
       cn.Close
       Set cn = Nothing
       Debug.Print "Total increase for " & max & " iterations: " & _
           (CStr(alngPrivateBytes(max) - alngPrivateBytes(0)))
       Debug.Print "Average increase per iteration: " & _
           (CStr((alngPrivateBytes(max) - alngPrivateBytes(0))) / max)
       'Clean up.
       r = PdhRemoveCounter(hPDHCounter)
       r = PdhCloseQuery(hPDHQuery)
   					

5. Make the following changes in the code:
   
   
   • Edit the Jet connection string to reflect the location of the Excel test file.
     Note: It is commented as follows: 'Jet connection string.
   • Edit the value of the "strCounterPath" variable to use the local workstation name.
     Note: It is commented as follows: 'Edit the value of the "strCounterPath" variable.
   • Edit the query to reflect the name of the worksheet in the file with the test data.
     Note: It is commented as follows: 'Edit the query to reflect the name of the worksheet.
   • Edit the value of the "max" variable for the desired number of repetitions.
     Note: It is commented as follows: 'Edit the value of the "max" variable.
6. Run the Excel application, and then open the test Excel file.
7. Run the Visual Basic application. Note that there is a steady increase in memory that is used by the Excel process, even though the ADO objects have been closed and released.