cnstring="Provider=Microsoft.Jet.OLEDB.4.0;" +
"Data Source=C:\\Program Files\\Microsoft Office\\Office\\Samples\\Northwind.mdb;" +
"User ID=;Password=;"
Dim conn As SqlConnection = New SqlConnection(cnstring)
Dim mycommand As SqlDataAdapter
Dim mydataset As DataSet
Dim mytable As DataTable
mycommand = New SqlDataAdapter("select * from 公告板", conn)
Dim mydataset As DataSet
mydataset = New DataSet()
mycommand.Fill(mydataset, "公告板")
Dim mytable As DataTable
mytable = mydataset.Tables("公告板")
Dim i As Integer
For i = 0 To mytable.Rows.Count - 1
ddltype.SelectedItem.Text = mytable.Rows(i)("类型")
tbxPhone.Text = mytable.Rows(i)("联系电话")
tbxSender.Text = mytable.Rows(i)("发布人")
tbxUnit.Text = mytable.Rows(i)("发布单位")
tbxTime.Text = mytable.Rows(i)("发布时间")
tbxTitle.Text = mytable.Rows(i)("标题")
tbxContent.Text() = RTrim(mytable.Rows(i)("发布内容"))
Next