QC11 + QTP11 : Getting below error while loading shared OR to Component which is available @ QC.

All,

Working with QC-ALM11.00 + QTP 11.00 & Getting below error while loading shared OR to Test / Component which is available @

"[QualityCenter\Resources] Resources\BPT Resources\Object Repositories\TestORFolder\ORName.tsr"

Error Messages as below.

1) Unable to access the specified repository. Confirm that the file exists and that it is a valid object repository file.
2) The remote server machine does not exist or is unavailable: 'qtApp.BusinessComponent' 

Have used two diff. functions to resove above issue, but some reason still it throwing same error.

Function toCallOR(ByVal sPath)
   Dim QC_OR
   Dim RepositoryFrom
   QC_OR = PathFinder.Locate(sPath)
        MsgBox QC_OR
        Set RepositoryFrom = CreateObject("Mercury.ObjectRepositoryUtil")
        RepositoryFrom.Load QC_OR
        MsgBox Err.Description & vbCrlf & Err.Number
        Set RepositoryFrom = Nothing
End Function

Function toCallORWithDiffMethod()
        Dim strORPath, qtApp, strActionName, qtRepositories
        strORPath = "EnglishAndroid"'strLanguage & strDevice_Type
        Set qtApp = CreateObject("QuickTest.Application")
        strActionName = Environment.Value("ActionName")
        Set qtRepositories = qtApp.BusinessComponent.Actions(strActionName).ObjectRepositories
        qtRepositories.Removeall
        qtRepositories.Add "[QualityCenter\Resources] Resources\BPT Resources\Object Repositories\TestORFolder\"& strORPath & ".tsr"
        MsgBox Err.Description & vbCrlf & Err.Number

End Function

Please help in this regard.

your help will be greatly appreciated.

Thanks,

Sandip G