Private Sub OnFeedbackSendCommandExecute(sender As Object, e As _
          EventArgs) Handles _FeedbackSendCommand.OnExecute
            Dim context As New Wave_DataEntities2
            Dim feedback As New Wave_Feedbacks With {.Category = _
              SelectedCategoryItem,.CreatedBy = Environment.UserName,.Feedback _
              = FeedbackText)}
            ' Hier INSERT - nur wie?
            FeedbackText = String.Empty
        End Sub