How to programmatically load a Shared Object Repository

Use the Automation Object Model to specify the path to a Shared Object Repository:
Dim App 'As Application
Set App = CreateObject("QuickTest.Application")
App.Test.Settings.Resources.ObjectRepositoryPath = ""