找了半天，没有一个文章能看的出名堂的，某位仁兄说的没错，资料真的太少了。
这是系统自带的代码，把数据库读入到TOPICS的数据集里，接下来我要从TABLE1中查询“名字”where 学号=“12345”，返回到TEXTBOX.TEXT中，就是这么简单，该怎么编写代码啊，抓狂啊！！！
Dim conn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=G:\VBDATA\main.accdb;Persist Security Info=False"
Dim cmd As String = "Select * from Topics"
Dim adapter As New OleDbDataAdapter(cmd, conn)
Dim topics As New DataSet
adapter.Fill(topics)
-----------------------------------
求后续代码...


Using conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=G:\VBDATA\main.accdb;Persist Security Info=False")
conn.Open()
Using comm As New OleDb.OleDbCommand("Select * from Topics", conn)
Dim reader = comm.ExecuteReader
MsgBox("读取了" & reader.RecordsAffected & "行数据")
Do Until reader.HasRows
reader.Read() '推进一行
' 这里读数据进行操作
Console.WriteLine(reader.Item(0).ToString) '打印数据的第一列数据
' ...
Loop
End Using
End Using