Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        Dim data As DataManager = New DataManager(loggedInUserId)

        Dim projects = data.MaterialRequest.GetProjects()

        Me.LabelMyProjects.Text = "You have access to following projects:"

        For idx As Int16 = 0 To projects.Count() - 1
            Me.LabelMyProjects.Text += [String].Format("{0}{1} ({2})", If(idx = 0, "", ", "), projects(idx).Name, projects(idx).Id)
        Next
    End Sub

Public Class MrDataManager
#Region "Models"

    Private Interface IBaseObject(Of Out T)
        Property Id() As Integer
        Property Name() As String
        Function GetMany() As IEnumerable(Of T)
        Function GetMany(ids As Integer()) As IEnumerable(Of T)
    End Interface

    Public Class BaseEntity

        Private _mId As Integer
        Public Property Id() As Integer
            Get
                Return _mId
            End Get
            Set(value As Integer)
                _mId = value
            End Set
        End Property

        Private _mName As String
        Public Property Name() As String
            Get
                Return _mName
            End Get
            Set(value As String)
                _mName = value
            End Set
        End Property

        Public Sub New(id As Integer, name As String)
            _mId = id
            _mName = name
        End Sub

    End Class

    Public Class Project
        Inherits BaseEntity
        Public Sub New(id As Integer, name As String)
            MyBase.New(id, name)
        End Sub
    End Class

#End Region

#Region "Data Access"

    Public MustInherit Class BaseServices
        Public CurrentUserId As Integer

        Protected Sub New(currentUserId As Integer)
            currentUserId = currentUserId
        End Sub
    End Class

    Public Class DataManager
        Private ReadOnly _currentUserId As Integer

        Public Sub New(currentUserId As Integer)
            _currentUserId = currentUserId 'сюда попадаю из Dim data As DataManager = New DataManager(loggedInUserId), loggedInUserId правильный
        End Sub

        Private _materialRequestServices As MaterialRequestServices
        Public ReadOnly Property MaterialRequest() As MaterialRequestServices
            Get
                Return If(_materialRequestServices, (InlineAssignHelper(_materialRequestServices, New MaterialRequestServices(_currentUserId))))
            End Get
        End Property
        Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, value As T) As T
            target = value
            Return value
        End Function
    End Class

    Public Class MaterialRequestServices
        Inherits BaseServices
        Public Sub New(currentUserId As Integer)
            MyBase.New(currentUserId)
        End Sub

#Region "Lookups"
        Public Function GetProjects() As List(Of Project) 'cюда попадаю сразу из Dim projects = data.MaterialRequest.GetProjects() и CurrentUserId всегда равен 0
            Dim list As List(Of Project) = New List(Of Project)()
            Using conn As New SqlConnection(WebConfigurationManager.ConnectionStrings("MasterCS").ConnectionString)
                Using cmd As New SqlCommand("RL_getProjectsForUser")
                    cmd.CommandType = CommandType.StoredProcedure
                    cmd.Parameters.Add(New SqlParameter("@fk_user_id", CurrentUserId))
                    conn.Open()
                    cmd.Connection = conn
                    Using dreader As SqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
                        While dreader.Read()
                            list.Add(New Project(dreader("pk_project_id"), dreader("project_name")))
                        End While
                        dreader.Close()
                    End Using
                End Using
            End Using
            Return list
        End Function

#End Region
    End Class

#End Region
End Class