ممكن استعلام عن حقول معينه

ممكن اني استعلم عن حقول في جدول .. واظهر البيانات في textbox غير قابلة للتعديل !!

كود form

--------------------

-------------------

Imports System.Data

Imports System.Data.OleDb

Public Class Form4

Dim frm As New Form3

Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source =" & Application.StartupPath & "\das.mdb"

Dim Conn As New OleDbConnection(ConStr)

Dim SQLstr As String

Dim m As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Static m As Integer = 0

TextBox1.Text = Trim("")

Conn.Open()

Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)

Close()

TextBox2.DataBindings.Add("Text", DasDataSet1, "tabs.mod_p")

TextBox3.DataBindings.Add("Text", DasDataSet1, "tabs.num_p")

TextBox5.DataBindings.Add("Text", DasDataSet1, "tabs.num_ph1")

SQLstr = "SELECT FROM tabs WHERE num_j = '" & TextBox1.Text & "'"

SQLstr = "SELECT FROM tabs WHERE num_p = '" & TextBox1.Text & "'"

SQLstr = "SELECT FROM tabs WHERE num_ph1 = '" & TextBox1.Text & "'"

If Me.BindingContext(DasDataSet1, "tabs").Count = 0 Then

MsgBox("No Result, Please Try Again ")

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Me.Hide()

My.Forms.Form2.Show()

End Sub

Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'TODO: This line of code loads data into the 'DasDataSet1.tabs' table. You can move, or remove it, as needed.

Me.TabsTableAdapter.Fill(Me.DasDataSet1.tabs)

End Sub

End Class

-----------------------------------------------------------

-----------------------------------------------------------

----------------------------------------------------------

عند تنفيذ الكود .. يظهر النافذة "No Result, Please Try Again" ويغلق البرنامج تلقائي

..................................

.......................

..............