Private Sub butAnhängen_Click(ByVal sender As _
   System.Object, ByVal e As System.EventArgs) Handles _
   butAnhängen.Click
   Dim objZeile As DataRow
   objZeile = objDataSet.Tables("t_Kunden").NewRow()
   With objZeile
      .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
   objDataSet.Tables("t_Kunden").Rows.Add(objZeile)
   objDataAdapter.Update(objDataSet, "t_Kunden")
End Sub