Run-Time error '-2147192184(80047288)'; Server has not yet been opened

[mvazquez]

Hola estoy tratando de Exportar un documento de Crystal 8.5 des de VB 6 pero me marca este error Run-Time error '-2147192184(80047288)'; Server has not yet been opened......... ya baje el MDAC 2.8 y sigue la cosa igual, utilizo esta rutina:


Dim Export As CRAXDRT.ExportOptions
Dim Report As CRAXDRT.Report
Dim appl As New CRAXDRT.Application

appl.LogOnServer "PDSODBC.DLL", "ExxSysTech", "", "", ""

Set Report = appl.OpenReport(pathREPORTES & "EXCO1010.rpt", 1)

Report.ExportOptions.DestinationType = crEDTDiskFile
Report.ExportOptions.FormatType = crEFTPortableDocFormat
Report.ExportOptions.DiskFileName = pathINTERNET & 10 & ".pdf"
Report.Export False


ExxSysTech = Es el ODBC que creo en la maquina
EXCO1010 = Es el nombre del reporte que quiero exportar
Utilizo la Referencia.......... Crystal Report 8.5 ActiveX Designer Run Time Library

Si alguien sabe aldo de esto por favor necesito de su ayuda, mil gracias
[email protected]