Private Sub Datensatz_Ändern(ByVal sender As Object, _
   ByVal e As System.EventArgs)
Dim dblPos As Double = _
        Me.BindingContext(objDataView).Position
        Me.lblPos.Text = (dblPos + 1).ToString & " von " & _
        objDataView.Count
        Me.optFrau.Checked = _
           (objDataView.Item(dblPos).Item("Geschlecht") = 1)
        Me.optHerr.Checked = _
           (objDataView.Item(dblPos).Item("Geschlecht") = 2)
        Me.DataGrid1.DataSource = Me.objDataSet.Tables("t_Kunden")
        Call PosAnzeigen()