مشكلة عند عرض تيكست بوكس من الفروم فى التقرير

السلام عليكم و رحمة الله و بركاته

اريد ان اربط تيكست بوكس بالتقرير و استخدمت هذا الكود

        Try
            Dim txt1 As TextObject
            Dim f As New Form2
            txt1 = rpt.ReportDefinition.ReportObjects("Text25")
            txt1.Text = TextBox33.Text
            f.CrystalReportViewer1.ReportSource = rpt
            f.Show()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

و لكن لم يعمل معى و عندما قمت بحذف الكود الذى استخدمه لربط الداتا بيس مع التقرير

        Try
            Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source =" & "Database.mdb;" & _
            "Jet OLEDB:Database Password=6c37@908+d+pq2kh3e0;"
            Dim crtableLogoninfo As New TableLogOnInfo()
            Dim crConnectionInfo As New ConnectionInfo()
            Dim CrTables As Tables
            Dim CrTable As Table
            Dim crReportDocument As New CrystalReport1()

            With crConnectionInfo
                .DatabaseName = Application.StartupPath & "\Database.mdb"
                .Password = "123456"
            End With
            CrTables = crReportDocument.Database.Tables
            For Each CrTable In CrTables
                crtableLogoninfo = CrTable.LogOnInfo
                crtableLogoninfo.ConnectionInfo = crConnectionInfo
                CrTable.ApplyLogOnInfo(crtableLogoninfo)
            Next
            CrystalReportViewer1.ReportSource = crReportDocument
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

اشتغل الكود الاول بشكل سليم ولا اعرف ما هى المشكلة

هناك سؤال اخر و اسف على الاطاله

اريد عند الضغط على Exportbutton فى التقرير ان يقوم بتصديره Pdf فقط و اللغاء باقى الصيغ