Dim conn As Data.OleDb.OleDbConnection
Dim da As Data.OleDb.OleDbDataAdapter
Dim ds As Data.DataSet
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
conn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=D:\data.mdb")
conn.Open()
da = New OleDb.OleDbDataAdapter("SELECT * FROM a", conn)
ds = New Data.DataSet
da.Fill(ds)
conn.Close()
TextBox1.Text = ds.Tables(0).Rows(0).Item("b")
End Sub