Private Sub frmDB2_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load   			objDataView = Nothing   _
  			objDataSet = New DataSet()   			objConnection.Open()    			objDataAdapter _
  = New OleDb.OleDbDataAdapter ("SELECT * FROM t_Kunden", objConnection)   _
  			objDataAdapter.Fill(objDataSet, "t_Kunden")   			objDataView = New _
  DataView(objDataSet.Tables("t_Kunden"))   			   			With Me   _
  				.txtVorname.DataBindings.Add("Text", objDataView, "Vorname")   _
  				.txtName.DataBindings.Add("Text", objDataView, "Name")   _
  				.txtStrasse.DataBindings.Add("Text", objDataView, "Strasse")   _
  				.txtPLZ.DataBindings.Add("Text", objDataView, "Plz")   _
  				.txtOrt.DataBindings.Add("Text", objDataView, "Ort")   _
  				.chkInfopost.DataBindings.Add("Checked", objDataView, "Infopost")			End _
  With   	End Sub		Private Sub Datensatz_ÄndernClick(sender As System.Object, e _
  As System.EventArgs)		Dim dblPos As Double = Me.BindingContext( _
  objDataView).Position   			Me.lblPos.Text = (dblPos + 1).ToString & " von " & _
  objDataView.Count		End Sub		Private Sub frmDB3_Closed(ByVal sender As Object, _
  ByVal e As System.EventArgs) Handles MyBase.Closed   			objConnection.Close() _
    			objDataSet = Nothing	End Sub		Private Sub ButweiterClick(ByVal sender As _
  System.Object, ByVal e As System.EventArgs) Handles ButWeiterClick   _
  			Me.BindingContext(Me.DataView1).Position += 1	End Sub 	Private Sub _
  butZurückClick(ByVal sender As System.Object, ByVal e As System.EventArgs) _
  Handles butZurückClick   			Me.BindingContext(Me.DataView1).Position -= 1	
End Sub