Dim objDataSet As DataSet
    Dim objDataTable As DataTable
    Dim objDataView As DataView
    Dim objDataAdapter As OleDb.OleDbDataAdapter
    Dim objConn As OleDb.OleDbConnection
    Dim objCB As OleDb.OleDbCommandBuilder
    Const sCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data" & _
      "Source=Mitarbeiter.mdb;Mode=ReadWrite"
    Private Sub butÄndern_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Button1.Click
        objCB = New OleDb.OleDbCommandBuilder(objDataAdapter)
        objDataAdapter.UpdateCommand = objCB.GetUpdateCommand
        Try
            Me.BindingContext(Me.objDataView).EndCurrentEdit()
            objDataAdapter.Update(objDataTable)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        objDataAdapter.Fill(objDataTable)
        Me.objDataSet.Tables.Add(Me.objDataTable)
        objDataView = New DataView(objDataTable)
        Me.DataBindings.Add("Text", objDataView, "Nummer")
        Me.txtVorname.DataBindings.Add("Text", objDataView, "Vorname")
        Me.txtZuname.DataBindings.Add("Text", objDataView, "Nachname")
        Me.BindingContext(objDataView).Position = 0
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        objDataSet = New DataSet("DataSet")
        objDataTable = New DataTable("DataTable")
        objConn = New OleDb.OleDbConnection(sCon)
        objDataAdapter = New OleDb.OleDbDataAdapter(New OleDb.OleDbCommand( _
          "SELECT * FROM Mitarbeiter", objConn))
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        Me.BindingContext(objDataView).Position -= 1
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        Me.BindingContext(objDataView).Position += 1
    End Sub
End Class