or
Public Class ReportTestFiltered Inherits ReportTestDataContext Public Sub New() MyBase.New() End Sub Public Shadows ReadOnly Property Users() As IQueryable(Of User) Get Return MyBase.Users.Where(Function(x) x.Active).AsQueryable() End Get End PropertyEnd Class