Passing RS to Supreport

[mgreer]

I'm trying to pass a recordset to a subreport that I don't know the name of. I'm using ASP and CR8 Automation Server I'm getting a 'Type Mismatch' on the following line:

Set session("CrSection&quot = session("CrSections&quot.Item(i)


Here is the code:

Set session("CrSections&quot = session("oRpt&quot.Sections
For i = 1 To session("CrSections&quot.Count
Set session("CrSection&quot = session("CrSections&quot.Item(i)

Set session("CrReportObj&quot = session("CrSection&quot.ReportObjects
For y = 1 To session("CrReportObj&quot.Count

If session("CrReportObj&quot.Item.Kind = SubreportObject Then
Set session("CrSubReportObj&quot = session("CrReportObj&quot.Item
Set session("CrSubReport&quot = session("CrSubReportObj&quot.OpenSubreport

'We need to set the database, database tables and database table of the subreport
'to get to the method that we need: SetPrivateData

Set session("CrDatabase&quot = session("CrSubReport&quot.Database
Set session("CrDatabaseTables&quot = session("CrDatabase&quot.Tables
Set session("CrDatabaseTable&quot = session("CrDatabaseTables&quot.Item(1)
session("CrDatabaseTable&quot.SetPrivateData 3, rsChecks
End If
Next
Next


??? I'm completely stumped.