[elgokr]

فقط قم باستبدال سطر الاستعلام بهذا السطر

كود :

Dim MyComm As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM [Feuil1$] WHERE [name] = '" & TextBox1.Text & "'", MyConn)

وسيعمل معك بدون اى مشكلة 

صورة نتيجة الاستعلام

تحياتى لك

وتمنياتى لك النوفيق