enter parameter values

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

لدى تقرير لطباعة فواتير من جدول داخل الداتا بيس اكسيس

قمت بعمل Textbox و Button داخل الفورم 1

و داخل الفورم رقم 6 وانشأت بداخلها CrystalReportViewer1

عند كتابة رقم العميل و الضغط على الزر يقوم بعرض بيانات هذا العميل فقط و لكن المشكلة هى ظهور هذه النافذة التى تطلب كتابة رقم العميل مرة اخرى !

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

هذه الاكواد المستخدمة

    Private Sub Button53_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button53.Click
        Dim cryRpt As New ReportDocument
        cryRpt.Load(Application.StartupPath & "\file\" & "Cr2.rpt")
        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldDefinition As ParameterFieldDefinition
        Dim crParameterValues As New ParameterValues
        Dim crParameterDiscreteValue As New ParameterDiscreteValue
        crParameterDiscreteValue.Value = TextBox26.Text
        crParameterFieldDefinitions = _
        cryRpt.DataDefinition.ParameterFields()
        crParameterFieldDefinition = _
   crParameterFieldDefinitions.Item("ID")
        crParameterValues = crParameterFieldDefinition.CurrentValues
        crParameterValues.Clear()
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
        Form6.CrystalReportViewer1.ReportSource = cryRpt
        Form6.Show()
    End Sub

هذا الكود فى حدث الفورم 6

        Try
            Dim ConStr As String = _
            "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
            Application.StartupPath & "\Database.mdb;" & _
            "Jet OLEDB:Database Password=6c37@908+d+pq2kh3e0;"
            Dim crtableLogoninfos As New TableLogOnInfos()
            Dim crtableLogoninfo As New TableLogOnInfo()
            Dim crConnectionInfo As New ConnectionInfo()
            Dim CrTables As Tables
            Dim CrTable As Table
            Dim crReportDocument As New Cr2
            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