Crystal Report in SQL Server DTS package

[DFleisch]

I'm having trouble opening a report from an ActiveX task in a DTS package. The code works in VB, but one of the Crystal objects will not enstantiate in VBA. When I run the task/step, DTS complains that the CRAXDRT class is not defined. Has anyone overcome this problem? Here is my code:
Dim craApp ' As New CRAXDRT.Application
Dim craRpt ' As CRAXDRT.Report
set crClass = new CRAXDRT.Application
Set craRpt = craApp.OpenReport(DTSGlobalVariables("pvReport&quot.Value)
craRpt.Database.Tables(1).SetLogOnInfo DTSGlobalVariables("DBA_Source&quot.Value, _
DTSGlobalVariables("DBA_InitialCatalog&quot.Value, _
DTSGlobalVariables("DBA_Username&quot.Value, _
DTSGlobalVariables("DBA_Password&quot.Value
craRpt.ParameterFields.Item(1).AddCurrentValue CDate(DTSGlobalVariables("pvBeginDate&quot.Value)
craRpt.ParameterFields.Item(2).AddCurrentValue CDate(DTSGlobalVariables("pvEndDate&quot.Value)
If DTSGlobalVariables("pvDisplayReport&quot.Value = True Then
craRpt.DisplayProgressDialog = True
craRpt.PrintOut False
Else
craRpt.DisplayProgressDialog = False
End If
craRpt.ExportOptions.PDFExportAllPages = True
craRpt.ExportOptions.DiskFileName = DTSGlobalVariables("pvPDFFilename&quot.Value
craRpt.ExportOptions.DestinationType = crEDTDiskFile
craRpt.ExportOptions.FormatType = crEFTPortableDocFormat
craRpt.Export False