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")
			dv1 = New DataView(objDataSet.Tables("t_Kunden"))
			DataGrid1.DataSource = dv1
 
   			With Me
   				.txtvorname.DataBindings.Add("text", dv1, "Vorname")
   				.txtName.DataBindings.Add("text", dv1, "Name")
   				.txtStrasse.DataBindings.Add("Text", dv1, "Strasse")
   				.txtPLZ.DataBindings.Add("Text", dv1, "Plz")
   				.txtOrt.DataBindings.Add("Text", dv1, "Ort")
   				.chkInfopost.DataBindings.Add("Checked", dv1, "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 ButweiterClick(sender As System.Object, e As System.EventArgs)
			DataGrid1.CurrentRowIndex += 1
	End Sub
 
	Private Sub ButzurückClick(sender As System.Object, e As System.EventArgs)
			DataGrid1.CurrentRowIndex -= 1
	End Sub