Public Shared Function GetAlleCategorieen() As ObservableCollection(Of FuifProduct)
        Dim categorieen As New ObservableCollection(Of String)
        Dim sNaamConnectieString As String = "FuifConnectionString"
        Dim sSQL As String = "Select DISTINCT FPCategorie From [Beursfuif].[dbo].[FuifProduct]"
        Dim reader As SqlDataReader = Beursfuif.BL.Database.GetReader(sNaamConnectieString, sSQL, Nothing)
        Do While reader.Read()
            Dim fpcategorie As String = reader("FPCategorie")

            Dim cat As
        Loop
    End Function