VS2008 and Crystal Reports Server 2008

Try
            Dim serverName As String = "servername"
            Dim mySessionMgr As SessionMgr = New SessionMgr()

            'Logon to the enterprise box
            Dim myEnterpriseSession As EnterpriseSession = mySessionMgr.Logon("Administrator", "pwd", serverName, "secEnterprise")

            'Exception raised at line below
            Dim myEnterpriseService As EnterpriseService = myEnterpriseSession.GetService("InfoStore")

            Dim myInfoStore As InfoStore = New InfoStore(myEnterpriseService)

            myEnterpriseService = myEnterpriseSession.GetService("PSReportFactory")

            Dim psrfObject As Object = myEnterpriseService.Interface
            Dim myPSReportFactory As PSReportFactory = CType(psrfObject, PSReportFactory)
            Dim queryString As String = "Select SI_ID, SI_NAME, SI_PARENTID From CI_INFOOBJECTS " _
                    & "Where SI_PROGID='CrystalEnterprise.Report' "
            Dim myInfoObjects As InfoObjects = myInfoStore.Query(queryString)

            Dim myInfoObject As InfoObject = myInfoObjects(1)
            Dim myReportSource As ReportSource = myPSReportFactory.OpenReportSource(myInfoObject.ID)
        Catch ex As Exception
            strMsg = ex.Message
        End Try