Public Shared Function getfuifproductenfromcategorie(ByVal fuifId As Integer, ByVal categorie As String) As List(Of FuifProduct)
        Dim fuifProductLijst As New List(Of FuifProduct)
        Dim connectionStringNaam As String = "conString"
        Dim sqlString As String = "select * from fuifproduct fp where fpfuifid=? and fpcategorie=?"
        Dim parameters(1) As OleDbParameter
        Dim fuifIdParam As OleDbParameter = database.createParameter(fuifId)
        Dim categorieParam As OleDbParameter = database.createParameter(categorie)
        parameters(0) = fuifIdParam
        parameters(1) = categorieParam
        Dim reader As OleDbDataReader = database.GetReader(connectionStringNaam, sqlString, parameters)
        fuifProductLijst = getFuifProductenFromReader(reader)
        Return fuifProductLijst
    End Function