Private Sub cmb_Ausgaben_KeyDown(ByVal sender As System.Object, ByVal e As _
   System.Windows.Forms.KeyEventArgs) Handles cmb_Ausgaben.KeyDown
 
        If e.KeyData = Keys.Enter Then
            Me.Validate()
            KategorieBindingSource.EndEdit()
            Me.KategorieTableAdapter.Update(Me.HaushaltskasseDataSet.Kategorie)
        End If
 
If e.KeyData = Keys.Delete Then
            KategorieBindingSource.RemoveCurrent()
            TableAdapterManager.UpdateAll(Me.HaushaltskasseDataSet)
        End If
 
    End Sub

  '  Persistieren Kategorie
 
  Private Sub btn_Ausgaben_neu_anlegen_Click(sender As Object, e As EventArgs) _
    Handles btn_Ausgaben_neu_anlegen.Click
        KategorieBindingSource.AddNew()
    End Sub
 
    Private Sub btn_Ausgaben_neu_bearbeiten_Click(sender As Object, e As _
      EventArgs) Handles btn_Ausgaben_neu_bearbeiten.Click
        KategorieBindingSource.EndEdit()
        KategorieTableAdapter.Update(HaushaltskasseDataSet)
    End Sub
 
    Private Sub btn_Ausgaben_neu_entfernen_Click(sender As Object, e As _
      EventArgs) Handles btn_Ausgaben_neu_entfernen.Click
        KategorieBindingSource.RemoveCurrent()
        TableAdapterManager.UpdateAll(Me.HaushaltskasseDataSet)
    End Sub
 
Private Sub btn_Ausgaben_neu_speichern_Click(sender As Object, e As EventArgs) _
  Handles btn_Ausgaben_neu_speichern.Click
        Me.Validate()
        KategorieBindingSource.EndEdit()
        Me.KategorieTableAdapter.Update(Me.HaushaltskasseDataSet.Kategorie)
    End Sub
 
    Private Sub btn_Ausgaben_neu_Abbruch_Click(sender As Object, e As _
      EventArgs) Handles btn_Ausgaben_neu_Abbruch.Click
        Me.KategorieBindingSource.CancelEdit()
    End Sub