[خالد كامل1]

هل هناك خطأ فى كود البحث هذا لا يخرج لى نتائج عن البحث

كود :

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
       Dim DT As New DataTable
       Dim DA As New OleDbDataAdapter
       DA = New OleDbDataAdapter("SELECT * FROM  OMAR WHERE ohda_combany LIKE '%" & TextBox1.Text & "%'  AND  bolesa.company_name LIKE '%" & TextBox1.Text & "%'  AND TASFEA_OHAD.company_name LIKE '%" & TextBox1.Text & "%'  AND TASFEA_HORA.company_namE LIKE '%" & TextBox1.Text & "%'  ", con)
       DA.Fill(DT)
       DataGridView1.DataSource = DT

   End Sub