البحث

لملذا لا يعمل هذا الكود

Dim x As String

x=me.textbox1.text

Dim cmd As New OleDb.OleDbConnection("select * from t1 where c=" & x, me.OleDbConnection1)

Dim red As OleDb.OleDbDataReader

Me.OleDbConnection1.Open()

If red.Read = True Then

TextBox2.Text = red.Read

End If

Me.OleDbConnection1.Close()

الخطأ يوجد في السطر

Dim cmd As New OleDb.OleDbConnection("select * from t1 where c=" & x, me.OleDbConnection1)

يضع خط ازرق تحت cmd

ارجو الافاده