Private Sub butÄndern_Click_1(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles butÄndern.Click
        '
        Dim dblPos As Double
 
        dblPos = Me.BindingContext(objDataView).Position
 
        With objDataSet.Tables("t_Kunden").Rows(dblPos)
            .Item("Vorname") = txtVorname.Text
            .Item("Zuname") = txtZuname.Text
            .Item("Straße") = txtStraße.Text
            .Item("Plz") = txtPLZ.Text
            .Item("Ort") = txtOrt.Text
            .Item("Infopost") = chkInfopost.Checked
            If radFrau.Checked = True Then
                .Item("Geschlecht") = 1
            Else
                .Item("Geschlecht") = 2
            End If
        End With
 
        Dim cb As New OleDb.OleDbCommandBuilder(objDataAdapter)
        objDataAdapter.UpdateCommand = cb.GetUpdateCommand
        'A E N D E R U N G
        Me.BindingContext(Me.objDataView).EndCurrentEdit()
        objDataAdapter.Update(objDataSet, "t_Kunden")
        PosAnzeigen()
        '
    End Sub
 
;-)