求教啊 一点都不会啊- 0 -

Using conn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\DB.mdb")
conn.Open()
Dim cmd As New System.Data.OleDb.OleDbCommand("select * from Table", conn)
Dim rs As System.Data.OleDb.OleDbDataReader = cmd.ExecuteReader, str As String = ""
Do While rs.Read
str += rs("***").ToString
Loop
rs.Close()
End Using