สอบถามครับ แก้ปัญหา Crystal Report ตรง Subreport แสดงข้อมูลที่ไม่ต้องการออกมา

        Dim SQLp As String = "SELECT dbo.tbpb_project.*, dbo.TeacherDepartment.dep_name " & _
        "FROM  dbo.tbpb_project INNER JOIN dbo.TeacherDepartment ON dbo.tbpb_project.dep_id = dbo.TeacherDepartment.dep_id "
        Dim SQLa As String = "SELECT dbo.tbpb_activity.*, dbo.TeacherDepartment.dep_name " & _
        "FROM  dbo.tbpb_activity INNER JOIN dbo.TeacherDepartment ON dbo.tbpb_activity.dep_id = dbo.TeacherDepartment.dep_id "

'case ที่ 1 แสดงข้อมูลโครงการตามปีที่กำหนด
                Sql = SQLp & "WHERE p_year = '" & Me.txtyear.Text & "'"
                db.connectdb()
                cm = New SqlCommand(Sql, db.cn)
                da = New SqlDataAdapter(cm)
                da.Fill(ds)
                db.closedb()
                dtProject = ds.Tables(0)

                Sql = SQLa
                db.connectdb()
                cm = New SqlCommand(Sql, db.cn)
                da = New SqlDataAdapter(cm)
                da.Fill(ds)
                db.closedb()
                dtActivity = ds.Tables(0)

                Dim rpt As New ReportDocument()
                rpt.Load(Server.MapPath("rpProjectAndActivity.rpt"))
                rpt.SetDataSource(dtProject)
                rpt.Subreports("Activity_SubReport").Database.Tables(0).SetDataSource(dtActivity)
                rpt.Refresh()
                Me.crv.ReportSource = rpt