vb.net返回数据库查询结果，怎么显示到text上

Question

Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
strSQL = "select 编号 from zhuce where 姓名 = '" & TextBox1.Text & "'"
Dim ds As New DataSet
ds.Clear()
Dim adapter As New OleDbDataAdapter(strSQL, StrConn)
adapter.Fill(ds)
comm.ExecuteNonQuery()
TextBox5.Text = ds.Tables(0).Rows(0)(5).ToString
End Sub

我的程序要怎么改好，或者怎么改成datagridview
忘了说我的问题，问题是TextBox5.Text不显示东西

Answer 1

adapter是用来填充数据集，也就相当于一个搬运数据的叉车。。
把数据从数据库里面，搬出来
而你只要提供一个数据库查询语句，和一个连接字符串。。再填充就可以了。。所以，就这几句就够了
Dim dt As New Table
Dim adapter As New OleDbDataAdapter(strSQL, StrConn)
adapter.Fill(dt)
datagridview.DataSource=dt;

这样就把查询结果显示在DataGridView控件中了

Answer 2

你的时间怎么放在TextBox5_TextChanged事件里啊。这是text5有输入变化才出发的
换个地方，比如放个按钮。

Answer 3

你这个程序两个问题
1.
不显示数据的原因，textbox1.databindings.add("text",
mydataset,
"worktime")，第二个参数不能是dataset应该是datatable，所以应该写成textbox1.databindings.add("text",
mydataset.tables("worktime"),
"worktime")
2.
myconn.open()的打开与关闭没必要再写了