Thanks to All, But i got the answer I've used the below code to load the shared OR.
Code:
set ORU=CreateObject("Mercury.ObjectRepositoryUtil")
ORU.Load "C:\Documents and Settings\Desktop\QTP WORK\ActionRepository.tsr" 'Path of Shared
' Object Repository