CR11 - Error 75 "Path/File access error

[Mark Gambo]

I have created an CR11 report that I have intergrated with my VB6 App. I have about 10 other CR11 reports that run flawlessly. I use the same code to display each CR report:

Option Explicit
Private Report As Object
Private strMode() As String
Private blnFormLoaded As Boolean
 
Private Sub CrystalActiveXReportViewer1_PrintButtonClicked(UseDefault As Boolean)
    UseDefault = False
 
    If Report.PrinterSetupEx(0) = False Then
        Report.PrintOut False
    End If
End Sub
 
Private Sub Form_Activate()
Dim rs As ADODB.Recordset
Dim strSQL As String
Dim a As Long
 
On Error GoTo Form_Activate_Error
 
    blnFormLoaded = True
    WindowState = 0
    strMode = Split(Tag, strSeparator)
 
        Set Report = New crDebriefingMain
        strSQL = "SELECT PD.* " & _
                    "FROM PD_TablePD " & _
                    "Where PD.PD_ID = " & strMode(1)
    End If
 
        Call GetRS(rs, strSQL)
        
            Screen.MousePointer = vbHourglass
            
            With Report
                .Database.SetDataSource rs
                .PaperOrientation = crPortrait
                .PaperSize = crPaperLetter
                .DiscardSavedData
            End With
            
            With CRViewer1
                .EnableDrillDown = False
                .DisplayGroupTree = False
                .DisplayTabs = False
                .EnableRefreshButton = True
                .ReportSource = Report
                .ViewReport
                .Zoom (2)
            End With
            
        WindowState = 2
           
        Screen.MousePointer = vbDefault
    
 
Set Report = Nothing
 
rs.Close
Set rs = Nothing
 
MousePointer =  vbDefault
 
On Error GoTo 0
Exit Sub
 
Form_Activate_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Form_Activate of Form " & name
Set Report = Nothing
rs.Close
Set rs = Nothing
MousePointer =  vbDefault
Unload Me
 
End Sub
 
Private Sub Form_Load()
    strMode = Split(Tag, strSeparator)
End Sub
 
Private Sub Form_Resize()
    With CRViewer1
        .Top = 0
        .Left = 0
        .Height = ScaleHeight
        .Width = ScaleWidth
    End With
End Sub

But in one report I keep getting the same error:

Error 75 (Path/File access error: 'C:\Docume~1\Admin\Locals~1\VBE2.tmp') in procedure Form_Activate

Any ideas? BTW I get the same meesage when I am using MSSQL 7 and MSSQL 2K5 Express


Thanks!!