To load the object repository

Dim objQTP
Dim QTP_OR
Set objQTP = CreateObject("QuickTest.Application")
Set QTP_OR = objQTP.Test.Actions("Action2").ObjectRepositories
If QTP_OR.Find("D:\pavan\Test1\new.tsr") = -1 Then
QTP_OR.Add "D:\pavan\Test1\new.tsr", 1
End If
Set QTP_OR = Nothing
Set objQTP = Nothing


Regards,

Pavankumar Nandagiri..............