[ابراهيم ايبو]

السلام عليكم اخي الكريم

استبدل كود البحث الذي لديك بهذا الكود

كود :

  Private Sub txtsrch_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles txtsearch.TextChanged
       Try
           adapter = New OleDbDataAdapter("Select Pro_code, Pro_Name from TBL_Products Where Pro_Name like '% " & txtsearch.Text & "%' or Pro_code like '% " & txtsearch.Text & "%'", con)
           adapter.Fill(Dtproducts)
           Me.dgvpro.DataSource = Dtproducts

       Catch ex As Exception
         
       End Try
   End Sub