[علي كعبي]

البحث يعمل بشكل ممتاز بس عند ادخل رقم زوجي يعطي هذه الرسالة التي في الصورة المرفقه علماً بان الحقل الذي يتم البحث فية رقمي في قاعدة البيانات

---

وهذا كود البحث

 Dim bda As New OleDb.OleDbDataAdapter("select * from tbl1  WHERE HijriID LIKE '" & TextBox1.Text & "'", con)
            Dim bdt As New DataTable

            bda.Fill(bdt)
            txtid.Text = bdt.Rows(0)("HijriID")
            tex1.Text = bdt.Rows(0)("HijriYear")
            tex.Text = bdt.Rows(0)("b")
            txt_date.Text = bdt.Rows(0)("b1")
            tex3.Text = bdt.Rows(0)("b2")
            tex5.Text = bdt.Rows(0)("b3")
            tex6.Text = bdt.Rows(0)("b4")
            tex7.Text = bdt.Rows(0)("b5")
            tex8.Text = bdt.Rows(0)("b6")
            tex9.Text = bdt.Rows(0)("b7")
            tex10.Text = bdt.Rows(0)("b8")
            bb1.Text = bdt.Rows(0)("b9")
            tex12.Text = bdt.Rows(0)("b10")
            tex20.Text = bdt.Rows(0)("b11")
            tex11.Text = bdt.Rows(0)("b12")
            bb2.Text = bdt.Rows(0)("b13")
            bb4.Text = bdt.Rows(0)("b14")
            bb5.Text = bdt.Rows(0)("b15")
            bb7.Text = bdt.Rows(0)("b16")
            IDLb.Text = bdt.Rows(0)("ID")

            If bdt.Rows.Count > 0 Then
            Else
                MsgBox("لاتوجد معاملات بهذا الرقم")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try