Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles _
    btnNeu.Click, btnEdit.Click
        Select Case True
            'Datensatz hinzufügen
            Case sender Is btnNeu
                Using frmAddAufgabe As New frmNewOrEditAufgabe
                    frmAddAufgabe.BSTODO.DataSource = BSTODO.AddNew
                    If frmAddAufgabe.ShowDialog(Me) <> _
                      Windows.Forms.DialogResult.OK Then Return
                    BSTODO.EndEdit()
 
                End Using
            Case sender Is btnEdit
                If BSTODO.Count = 0 Then
                    Return
                End If
                'Datensatz editieren
                Using frmAddAufgabe As New frmNewOrEditAufgabe
                    frmAddAufgabe.BSTODO.DataSource = BSTODO.Current
                    If frmAddAufgabe.ShowDialog(Me) <> _
                      Windows.Forms.DialogResult.OK Then Return
                    BSTODO.EndEdit()
 
                End Using
        End Select
 
 
    End Sub