Very Computer

1. Closing report does not release system memory

I Posted this to the Access Reports group earlier. I got a couple of
suggestions but still have the problem.

Access 2002 sp2 .adp Windows XP sp1

I am using the following code in the ON OPEN event of a report. I am calling
the report using this code :DoCmd.OpenReport "rptStructProjByClientType",
acViewPreview. The report is about 300 pages long with no graphics. When I
open task manager before opening the report I have 159mb available. After
opening the report and going to the last page I have 89mb left. When I close
the preview of the report, none of the memory gets released. If I open it a
second time it just takes more memory and never give that back until finally
I can't run anything.  The memory is released only after I Close Access.
This seems to be the case even in the most simple reports. I tried the
rs.close and it gives me an error: Object Required and kicks me out of
access when I try to open the report. I also tried putting it in the ON
CLOSE event.

Any Ideas?

Thanks in advance for your suggestions.

Steve

Private Sub Report_Open(Cancel As Integer)
   Dim cn As ADODB.Connection
   Dim rs As ADODB.Recordset
   Dim strClientType As String
   Dim opgrpActiveOrAll As Variant
   Dim strWhere As String

   opgrpActiveOrAll = Forms!frmSearchPage.Form.opgrpActiveOrAll
   strClientType = Forms!frmSearchPage.Form.cmbFindClientType

        If (opgrpActiveOrAll) = 1 Then
            strWhere = "SELECT Distinct * FROM dbo.StructuralProjects Where
(clSelect3 = '" & strClientType & "') "
        Else
            strWhere = "SELECT Distinct * FROM dbo.StructuralProjects Where
(clSelect3 = '" & strClientType & "') And (Inv_Active = '-1')"
        End If

   'Use the ADO connection that Access uses
   Set cn = CurrentProject.AccessConnection

   'Create an instance of the ADO Recordset class and open it
   Set rs = New ADODB.Recordset
   rs.Open strWhere, cn

   'Set the report's Recordset property to the ADO recordset
   Set Me.Recordset = rs
   Set rs = Nothing
   Set cn = Nothing

End Sub

2. Global Field Glitch

3. system memory

4. How to print totals by Category & Subcategory

5. Help - error 701 insufficient system memory to run this query

6. How to convert text to Title Case?

7. Error: Insufficient System Memory

8. ISAM Drivers???

9. How to determine system memory in T-SQL

10. Insufficient system memory

11. Insufficent system memory

12. Insufficient system memory

13. Insufficient System Memory ???