مشكلة في جلب الصورة في التقرير - نسخة قابلة للطباعة

كود :
Private Sub ButReport1_Click(sender As Object, e As EventArgs) Handles ButReport1.Click

        ' كشف بأسمــاء الطلبــة

        If CombClass.Text = "" Then

            MessageBox.Show(" عفواً ، يجب اختيـار الفصل الدراســي", "تنبيــه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

            Exit Sub

        End If



        If Combroom.Text = "" Then

            MessageBox.Show(" عفواً ، يجب اختيـار القسم الدراســي", "تنبيــه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

            Exit Sub

        End If



        Dim rpt1 As New CrystalReport1

        Dim dt As New DataTable()

        Try

            Using da = New OleDbDataAdapter("SELECT * From TBL_Students WHERE ClassName LIKE '%" & CombClass.Text & "%' AND Classroom LIKE '%" & Combroom.Text & "' ", Con)

                dt.Clear()

                da.Fill(dt)

                rpt1.SetDataSource(dt)

            End Using

            If dt.Rows.Count = 0 Then

                MessageBox.Show("عفـــواً ... لا يوجــد طلبــة دراسين فـي: " & " " & CombClass.Text & vbCrLf & " قسـم: " & Combroom.Text & " * ليتم عرض بيانـاتهم ", "تنبيـــه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

                CombClass.Text = String.Empty

                Combroom.Text = String.Empty

                Exit Sub

            End If



            Dim LTextName As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("LTextName")

            LTextName.Text = " " & Me.LabelC2.Text & Environment.NewLine & " " & Me.LabelC4.Text & Environment.NewLine & " كشف بأسمـاء طلبـة " & Me.CombClass.Text & Environment.NewLine & " القسـم: " & Me.Combroom.Text

            Dim TextName As CrystalDecisions.CrystalReports.Engine.TextObject = rpt1.Section2.ReportObjects("TextName")

            TextName.Text = " " & Me.LabelC5.Text & Environment.NewLine & " مديــر عام المعهـد"



            rpt1.SetParameterValue("Image", Application.StartupPath & "\School_logo\logo.jpg‎")



            FormReport.CrystalReportViewer1.ReportSource = rpt1

            FormReport.CrystalReportViewer1.Zoom(100)

            FormReport.CrystalReportViewer1.Refresh()

            FormReport.CrystalReportViewer1.RefreshReport()

            FormReport.Show()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try



    End Sub



جربت هذا الجزء في الكود ولم يفلح



            rpt1.SetParameterValue("Image", Application.StartupPath & "\School_logo\logo.jpg‎")





وجربت هذا الجزء أيضاً



Dim logoPath As String = Application.StartupPath & "\School_logo\logo.jpg"

Dim pic As CrystalDecisions.CrystalReports.Engine.PictureObject = rpt1.Section2.ReportObjects("Picture1")

pic.ObjectFormat.PictureGraphicLocation = logoPath