[aminesori]

السلام عليكم 
عندي كود اريد تطبيق العرض نتيجة على لسيت بوكس وحدة
بدل تاكست بوكس 

كود :

con.Open
      Dim strsql As String
      strsql = "select id,dataa1,dataa2,dataa3 from TBLDAAT where id='" + TextBox1.Text + "'"
      Dim cmd2 As New OleDbCommand(strsql, con)
      Dim myreader As OleDbDataReader
      myreader = cmd2.ExecuteReader
      myreader.Read()
      ListBox1.Text = myreader("dataa1")
TextBox2.Text = myreader("dataa2")
TextBox3.Text = myreader("dataa3")
()con.Close