Private Sub LoadTvObjectInApp()
 
        Dim objectInApps As IQueryable(Of ObjectInApp)
        objectInApps = _context.ObjectInApps.Where(Function(c) (c.ApplicatieCode = "zis") AndAlso Not (c.GroepNaam = "hulp" AndAlso c.IsSysteemObject = True))