I have created a main report and a sub report, which both work fine by
themselves. When I insert the 2nd report as a sub report, the main
report still contains data, but the sub report is blank. I think the
problem is with my code. Could anyone evaluate my code or provide a
link to an example of how to do this. This is my first shot at sub
reports.
        Dim strReportPath1 As String = "PCMarketException"
        Dim strConnection As String = "Data Source=HERCULES;Initial Catalog=Carcass2;Integrated Security=True"
        Dim Connection As New SqlConnection(strConnection)
        Dim strSQL As String = "VERY VERY LONG SQL Statement(I won't list all of this out)"
        Dim strSQL1 As String = "SELECT * FROM t_groupdata"
        Dim DA As New SqlDataAdapter(strSQL, Connection)
        Dim DA1 As New SqlDataAdapter(strSQL1, Connection)
        Dim DS As New DataSet

        DA.Fill(DS, "PCMarket")
        DA1.Fill(DS1, "CarcassData")
 
        Dim strReportPath As String = Application.StartupPath & "\" & strReportPath1 & ".rpt"

        If Not IO.File.Exists(strReportPath) Then
            'Throw (New Exception("Unable to locate report file:" & vbCrLf & strReportPath))
            strReportPath = Application.StartupPath & "\..\..\" & strReportPath1 & ".rpt"
        End If

        Dim cr As New PCMarketException
        cr.Load(strReportPath)
        cr.SetDataSource("PCMarket")
        cr.Subreports.Item("CarcassData").SetDataSource(DS1)

        cvwPCMarket.ShowRefreshButton = False
        cvwPCMarket.ShowCloseButton = False
        cvwPCMarket.ShowGroupTreeButton = False
        cvwPCMarket.ReportSource = cr

for each myReportObject in myReport.ReportDefinition.ReportObjects
if myReportOjbect.Kind = CrystalDecisions.[Shared].ReportObjectKind.SubreportObject Then
  'Use debug mode here to examine the Name property of the subreport
End If
Next