عندى مشكله فى كود البحث من خلال داتا جرايد

عندى مشكله فى كود البحث من خلال داتا جرايد

ده الخطأ

وده الكود

 'Try

        BindingSource3 = New BindingSource(dset, "bill_sales")
        If TextBox2.Text.Trim = "" Then
            MsgBox("الرجاء ادخال قيمة للبحث عنها", 16 + 524288, "البحث عن قيمة")
            TextBox2.Text = ""
            TextBox2.Focus()
            Exit Sub
        End If

        'اذا كان المدخل في مربع البحث رقما
        If IsNumeric(TextBox2.Text.Trim) = True Then
            BindingSource3.Filter = "bil_id='" & Me.TextBox2.Text.Trim & "'"

            'BindingSource3.Filter = "bil_id='" & Me.TextBox2.Text.Trim & "' or num_pie='" & Me.TextBox2.Text.Trim & "'"
        End If
        'Catch ex As Exception
        '    MessageBox.Show(ex.Message)
        'End Try
    End Sub

وانا مش عارف هل نتيجه هتطلع فى داتا جرايد ..؟؟ولا فين 

وكمان انا حباب النتيجه اطلعها  من خلال تكست بوكس او ليبول يعنى انا اللى حدد ده ..؟