สอบถามเกี่ยวกับการเขียน code เพื่อแสดง report โดยส่งข้อมูลใน label ไปใส่ใน report

 Try
            Dim DDTtemp As New DataSet
            DDTtemp = SearchSet.Tables(0).DataSet.Copy
            Dim reportset As New ReportPrint
           
            Dim lb_result_crystal As CrystalDecisions.CrystalReports.Engine.TextObject '====

            reportset.SetDataSource(DDTtemp.Tables(0))
           lb_result_crystal = reportset.ReportDefinition.ReportObjects("Text15") '=====    ' textbox in crystal report

            
            lb_result.Text = Text15.Text '=====

            ReportViewer.CrystalReportViewer1.ReportSource = reportset
            ReportViewer.Show()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try