Setting selection formula in subreport

Question

Hi all,
I hope there is a simple solution to this.
I have a standard report, works great and now I need to add a subreport to the footer.  The new subreport is not linked to anything in the main report and shouldn't be.  I am using CrystalReportSource to pass parameters to the main report and the subreport and I set the selectionformula for the main report with this code and it works great:
        me.CrystalReportViewer1.SelectionFormula = mySelectionString
I still need to set the selection formula for the subreport, but everything I have found says to setup a new instance of the report, get a reference for the subreport and set the recordselection formula. 
        MySubReport = MyReport.OpenSubreport("TerritorySalesRecap.rpt")
        MySubReport.RecordSelectionFormula = MySelectionString
The code runs, be the selection formula does not get set.  Any ideas?

Answer 1

SOLUTION!!! 
I did have to use the report engine instead of the viewer, but there is a pretty easy way to do it if you search and wade through enough of the msdn documentation:
Dim TerrRpt As TerritorySalesReport = New TerritorySalesReport
' set parameters in the main report
TerrRpt.SetParameterValue("RptMonth", Month(Request.QueryString("id5")))
TerrRpt.SetParameterValue("RptYear", Year(Request.QueryString("id5")))
TerrRpt.SetParameterValue("SalesCompany", Request.QueryString("id3"))
TerrRpt.SetParameterValue("RptMonthName", MonthName(Month(Request.QueryString("id5"))))
TerrRpt.SetParameterValue("RptMonthNameAbbv", MonthName(Month(Request.QueryString("id5")), True))
' add parameter to subreport
TerrRpt.SetParameterValue("RptMonth", Month(Request.QueryString("id5")), "TerritorySalesRecap.rpt")
' specify selection formula
sql = "{Invoice.IVM_InvoiceType} in [0, 2] AND {@InvDate} in Date (" & date1 & ") to Date (" & date2 & _
        ") AND NOT {Invoice.IVM_ReversedFlag}"
' Add it to the main report
TerrRpt.RecordSelectionFormula = sql
' and to the subreport
TerrRpt.Subreports.Item("TerritorySalesRecap.rpt").RecordSelectionFormula = sql
' Lastly - bind the report
Me.CrystalReportViewer1.ReportSource = TerrRpt