Logon failed. Details: mscorlib : Could not find file.... XSD

Question

I have been searching the forums and the web for hours and have not found a solution to a problem we are having.  We upgraded our reports from VS.NET 2003 to VS.NET 2008 and started getting the below error upon our Report.Export code.
Logon failed. Details: mscorlib : Could not find file 'C:\Inetpub\wwwroot\xxx\ConsolidatedReports\Designers\xxxFringe\xxxFringeFunderDetail.xsd'. Failed to export the report. Error in File C:\WINDOWS\TEMP\temp_90ed8e07-481c-4bdb-8c50-885854a143d0 {B8EC61FE-7931-4979-AD92-432C21013D77}.rpt: Unable to connect: incorrect log on parameters.
So when I verify the XSD and set the data source location (XML File Path: C:\Inetpub\wwwroot\xxx\ConsolidatedReports\Designers\xxxFringe\xxxFringe.xsd)  the report works fine.  The problem is that when another developer trys to run the report on their machine and their machine has a different path for the code, the report fails.  The odd thing is that some of our reports are working fine, it is only a few that basically are looking for the hard coded XSD path.
So, as far as I can tell the XSD are not needed (Re: ADO.Net (XML) Data Source File Path).  I have applied SP1 for Crystal Reports.  I am totally confused why this started and why the report is looking for a "hard coded" path to the XSD.

Answer 1

The RunReport is called by a button click on a form.  This method calls ExportFile which works until the line "Report.Export()" is hit. 
    Public Overrides Function RunReport(ByVal ReportID As Short) As String
        Dim Utility As New Utility(Session("CNReportPath"))
        Dim Report As New rptIndividualSalaryFringe
        Dim db As New BudgetDB(Session("CNReportPath"))
        Dim pDB As New ProgramDB(Session("CNReportPath"))
        Dim dsRep, dsSub As DataSet
        Dim AgencyID As Integer = Program1.AgencyID
        Dim ProgramID As Integer = Program1.ProgramID
        Dim FyID As Integer = FiscalYear1.SelectedValue
        Dim ShowOnlyCSCFunded As Integer = IIf(chkShowCSCFunded.Checked = True, 1, 0)
        Dim ContractNumber, AgencyName As String
        Dim ReportEnv As String = Environment
        Dim ReportDB As String = DBName
        dsRep = db.GetIndividualSalaryFringe(AgencyID, ProgramID, FyID, ShowOnlyCSCFunded)
        'dsRep.WriteXmlSchema(Server.MapPath("~/ConsolidatedReports/Designers/IndividualSalaryFringe/IndividualSalaryFringe.xsd"))
        AgencyName = pDB.GetAgencyName(AgencyID)
        With Report.Section1
            CType(.ReportObjects("txtAgency"), TextObject).Text = AgencyName
            CType(.ReportObjects("txtProgram"), TextObject).Text = pDB.GetProgramName(ProgramID)
            CType(.ReportObjects("txtFiscalYear"), TextObject).Text = "Fiscal Year " & FiscalYear1.SelectedText
        End With
        ContractNumber = pDB.GetContractNumber(ProgramID)
        If Not IsNothing(ContractNumber) Then
            If Not ContractNumber = "" Then
                With Report.Section6
                    .SectionFormat.EnableSuppress = False
                    CType(.ReportObjects("txtContractNumber"), TextObject).Text = "Contract #:" & ContractNumber
                End With
            End If
        End If
        With Report.Section5
            CType(.ReportObjects("txtAgencyName"), TextObject).Text = AgencyName
        End With
        If dsRep.Tables(0).Rows.Count <= 0 Then
            Report.secNoData.SectionFormat.EnableSuppress = False
            Report.Section2.SectionFormat.EnableSuppress = True
            Report.Section4.SectionFormat.EnableSuppress = True
            Report.Section7.SectionFormat.EnableSuppress = True
            Report.Section9.SectionFormat.EnableSuppress = True
            Report.Section10.SectionFormat.EnableSuppress = True
            Report.secFunderDetail.SectionFormat.EnableSuppress = True
        Else
            dsSub = db.GetIndividualSalaryFringeFunderDetail(ProgramID, FyID)
            'dsSub.WriteXmlSchema(Server.MapPath("~/ConsolidatedReports/Designers/IndividualSalaryFringe/IndividualSalaryFringeFunderDetail.xsd"))
            Report.OpenSubreport("subFunderDetail").SetDataSource(dsSub)
        End If
        'Ehn 41 add environment and db name
        CType(Report.Section5.ReportObjects("DBName"), TextObject).Text = "DB: " + ReportDB
        CType(Report.Section5.ReportObjects("Environment"), TextObject).Text = IIf(ReportEnv = "", ReportEnv, "Env: " + ReportEnv)
        Report.SetDataSource(dsRep)
        'You must set the ReportGroup equal to Crystal to make it work correctly
        ReportGroup = ReportGroup.Crystal
        'Leave this line of code
        ReportFile = Utility.ExportFile(Report, ExportFilter1.ExportType, Server.MapPath("~/ReportFiles/"))
        Return String.Empty
    End Function
    Public Function ExportFile(ByVal Report As ReportDocument, ByVal ExportType As ExportType, ByVal OutputPath As String, Optional ByVal ds As DataSet = Nothing) As String
        Dim crDiskFileOpts As New DiskFileDestinationOptions
        'Dim strFilePath As String
        'Dim strLinkPath As String
        Dim crExportOptions As New ExportOptions
        Dim crExcelOptions As New ExcelFormatOptions
        Dim crPDFOptions As New PdfRtfWordFormatOptions
        Dim crWordOptions As New PdfRtfWordFormatOptions
        Dim ReportName As String = String.Empty
        Try
            crExportOptions = Report.ExportOptions
            Select Case ExportType
                Case ExportType.Excel
                    ReportName = Left(Guid.NewGuid.ToString, 15) & ".xls"
                    With crExcelOptions
                        .ExcelTabHasColumnHeadings = True
                        .ExcelUseConstantColumnWidth = True
                    End With
                    crExportOptions.ExportFormatType = ExportFormatType.Excel
                    crExportOptions.FormatOptions = crExcelOptions
                Case ExportType.PDF
                    ReportName = Left(Guid.NewGuid.ToString, 15) & ".pdf"
                    crExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat
                    crExportOptions.FormatOptions = crPDFOptions
                Case ExportType.Word
                    ReportName = Left(Guid.NewGuid.ToString, 15) & ".doc"
                    crExportOptions.ExportFormatType = ExportFormatType.WordForWindows
                    crExportOptions.FormatOptions = crWordOptions
                Case SamisConstants.ExportType.ExcelRaw
                    ReportName = Left(Guid.NewGuid.ToString, 15) & ".xls"
                    ''If Not IsNothing(ds) Then
                    ''    Dim oExcel As New ExcelExport.ExcelExport
                    ''    oExcel.CreateWorkbook(OutputPath & ReportName, ds)
                    ''End If
            End Select
            Select Case ExportType
                Case ExportType.Excel, ExportType.PDF, ExportType.Word
                    crDiskFileOpts.DiskFileName = OutputPath & ReportName
                    With crExportOptions
                        .DestinationOptions = crDiskFileOpts
                        .ExportDestinationType = ExportDestinationType.DiskFile
                    End With
                    Report.Export() ' ERROR HAPPENS HERE!!!!!!
            End Select
            Return "ReportFiles/" & ReportName
        Catch ex As Exception
            Throw ex
        End Try
    End Function