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