Excepcion no controlada

[marvern]

Hola, que tal?

Al llamar al reporte que trae datos de dos tablas me aparece el siguiente error:

"Excepción no controlada del tipo 'System.Runtime.InteropServices.COMException' en axinterop.crystal.dll
Información adicional: Excepción de HRESULT: 0x800A5077."


la verdad no tengo idea cual podria ser el error,

desde ya muchas gracias

saludos...

[Mickel]

has publicado previamente reportes?
has cambiado la version de Crystal?

[marvern]

si, es decir el CR q utilizo es el 8.5 y al principio habia utilizado en VB .Net controles q son para CR 9 y obviamente no me funcionó, asi que cambie el codigo utilizando el control Crystal Report Control y me funcionó para casos en q utilizo una sola tabla, pero al hacerlo con dos tablas y enviando parametros es q aparece este error.

Si necesitas q te envie el codigo q utilizo, avisame q te lo envio.

Gracias, saludos.

[marvern]

Este es el codigo q utilizo:

Private Sub btnImprimir
NombreDB = "Password=XXXX;User ID=WWWW;Initial Catalog=BD;Data Source=QQQQ"
CryRpt.Connect = NombreDB
Reporte(CryRpt, "C:\aaaa\Reporte.rpt", Crystal.DestinationConstants.crptToWindow, NombreDB, "{Tabla.Campo1} = " & txtCampo1.Text & " And {Tabla.Campo2} = '" & Campo2.Text & "' and {Tabla.Campo3} = '" & txtCampo3.Text & "'")
End Sub


Public Sub Reporte(ByVal CryRptObj As AxCrystal.AxCrystalReport, ByVal RptFile As String,ByVal RptDestination As Crystal.DestinationConstants, ByVal NombreDB As String, Optional ByVal Formula As String = "")
CryRptObj.ReportFileName = RptFile
If Trim(Formula) <> "" Then
CryRptObj.SelectionFormula = Formula
End If
CryRptObj.Destination = RptDestination
CryRptObj.Action = 1
CryRptObj.Reset()
CryRptObj.Connect = NombreDB
end sub