SERVICE NOT FOUND OGENERAL SERVICE..ERROR

HI..

I CREATED ONE  OBJECT DOCUMNET TYPE..

OJECT NAME IS HRMSPOSTIONS

WHILE ADDING  BELOW  BOLD COLOR   I AM GETTING THE ERROR LIKE SERVICE NOT FOUND..

MAY I KNOW WHAT I HAVE DONE THE MISTAKE...

OBJECT IS AVAILABLE...

Dim oGeneralData As SAPbobsCOM.GeneralData

                Dim oChild As SAPbobsCOM.GeneralData

                Dim oChildren As SAPbobsCOM.GeneralDataCollection

                Dim oGeneralParams As SAPbobsCOM.GeneralDataParams

                Dim oCmpSrv As SAPbobsCOM.CompanyService = CType(ocompany.GetCompanyService, SAPbobsCOM.CompanyService)

                Dim oGeneralService As SAPbobsCOM.GeneralService = CType(oCmpSrv.GetGeneralService("HRMSPOSTIONS"), SAPbobsCOM.GeneralService)

                oGeneralData = oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData)

ANY SUGGESTIONS PLZ INFORM ME..