Private Sub butÄndern_Click(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
   objDataAdapter.Update(objDataSet, "t_Kunden")
End Sub