الرجاء المساعدة (رسالة Syntax error in query)

جرب تجرب الكود بالشكل ده

Private Sub CodeTxt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CodeTxt.TextChanged
Dim SQLstr2 As String = "SELECT * FROM [Accessories] WHERE Code ='" & CodeTxt.Text & "'"
Dim DA2 As New OleDb.OleDbDataAdapter(SQLstr2, Con)
If Con.State = ConnectionState.Open Then Con.Close()
Con.Open()
DS2.Clear()
DA2.Fill(DS2, "[Accessories]")
NotesTXT.DataBindings.Clear()
NotesTXT.DataBindings.Add("Text", DS2, "[Accessories].Notes")
BuyPriceTXT.DataBindings.Clear()
BuyPriceTXT.DataBindings.Add("Text", DS2, "[Accessories].Buy_Price")
DTP1.DataBindings.Clear()
DTP1.DataBindings.Add("Text", DS2, "[Accessories].dateofbuy")
pics()
ProDetails.Text = " معلومات المنتج رقم : " & CodeTxt.Text & " "
Con.Close()

شكراً أخي على الرد ...

ولكن جربت هذه الطريقة من قبل أن أضع المشاركة و أظهر لي هذا الخطأ ..

Data type mismatch in criteria expression.

ويظهر هذا الخطأ أيضاً 
 

أنا في حيرة من أمري حيص لم تواجهني هذه المشاكل من قبل .

ضع هذا الكود هنا وجرب

 Private Sub DataGridView1_DataError(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles DataGridView1.DataError
        Try

        Catch ex As Exception


        End Try
    End Sub

مشكور أخي على ردك

و كلن رجعت هذه الرسالة تظهر

Syntax error (missing operator) in query expression 'Code ='.

و بسبب الكود الذي أعطيتني أياه أصبح يحذف محتويات الخلايا و لكن لا يظهر أي خطأ .. و على ما أظن وظيفة الكود هي عدم إظهار الأخطاء و ليس إصلاحها .

في بعض الاحيان لايوجد أخطاء وعلي الرغم ذلك يظهر الخطأ

علي أي حال حاول ارفاق مثال مع توضيع مواضع المشاكل حتي نستطيع مساعدتك

بسم الله الرحمن الرحيم

جربى هذا

Dim SQLstr2 As String = "SELECT * FROM [Accessories] WHERE Code = " & CodeTxt.Text.Trim & ""

جرب هذا

Private Sub CodeTxt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CodeTxt.TextChanged
        Dim SQLstr2 As String = "SELECT * FROM [Accessories] WHERE Code = " & CodeTxt.Text 
        Dim DA2 As New OleDb.OleDbDataAdapter(SQLstr2, Con)
        
		DA2.Fill(DS2, "[Accessories]")
        
		NotesTXT.DataBindings.Clear()
        NotesTXT.DataBindings.Add("Text", DS2, "[Accessories].Notes")
        BuyPriceTXT.DataBindings.Clear()
        BuyPriceTXT.DataBindings.Add("Text", DS2, "[Accessories].Buy_Price")
        DTP1.DataBindings.Clear()
        DTP1.DataBindings.Add("Text", DS2, "[Accessories].dateofbuy")
        
		pics()
        ProDetails.Text = " معلومات المنتج رقم : " & CodeTxt.Text & "  "