[Anas Mahmoud]

استخدم OleDbCommand بدلا من نص الاستعلام مباشرة 

كود :

       Dim sql As OleDbCommand

       sql = New OleDbCommand("Select * From [table] Where [Column] = @Column", conn)
       sql.Parameters.AddWithValue("@Column", "القيمة المطلوبة في الشرط")

       Dim adp As New OleDbDataAdapter(sql)

تحل لك المشكلة ان شاء الله وتعطيك طريقة لتمرير البيانات للشرط في الاستعلام بشكل سهل وامن