Dim ConnectionString As String = ″ Provider = Microsoft.Jet.OLEDB.4.0; Data Source = e:\My Documents\db1.mdb″

Dim myConn As OleDbConnection = New OleDbConnection()

myConn.ConnectionString = ConnectionString

Dim strCom As String = ″ SELECT * FROM student ″

'创建一个 DataSet

myDataSet = New DataSet()

myConn.Open()

'用 OleDbDataAdapter 得到一个数据集

Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter(strCom, myConn)

'把Dataset绑定student数据表

myCommand.Fill(myDataSet, ″student″)

'关闭此OleDbConnection

myConn.Close()

End Sub

'绑定数据到TextBox控件

Private Sub frmtest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

txtStuID.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuID″))

txtStuName.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuName″))

txtStuSex.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuSex″))

txtStuBorn.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuBorn″))