Display shared folder

I have a shared folder that has an inbox and a task list.  I have built code to display the task list in a new window, but I would like to display it in the active Outlook window (much the same way as the PickFolder event - only without the user interface).  Below is the code I have so far:

Sub gotoTaskList()

    Dim olApplication As Outlook.Application
    Dim olns As Outlook.NameSpace
    Dim olFolder As Outlook.MAPIFolder
       
    Set olApplication = CreateObject("Outlook.Application")
    Set olns = olApplication.GetNamespace("MAPI")
    Set olFolder = olns.Folders("Mailbox - IT Request").Folders("Tasks")
    olFolder.Display

End Sub

..where 'Tasks' is a subfolder of 'Mailbox - IT Request'.  Any help is appreciated.  Thanks!