Pasar parámetros desde VB6 a CR8.5

[buji]

Hola Foro.

Dado un reporte que uso con el objeto crviewer estoy tratando de pasarle parametros.

Para ello utilizo:


Dim crParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim crParamDef As CRAXDRT.ParameterFieldDefinition

Dim rs As New ADODB.Recordset
Dim por1 As Double
Dim por2 As Double

por1 = 10
por2 = 20

' Parametros del reporte
Set crParamDefs = Report.ParameterFields
For Each crParamDef In crParamDefs
Select Case crParamDef.ParameterFieldName
Case "Por1"
crParamDef.AddDefaultValue (porneto)
Case "Por2"
crParamDef.AddDefaultValue (portotal)
End Select
Next

Report.EnableParameterPrompting = False

Ahora, cuando dejo la última línea no me pide confirmacion de los parametros pero los mismos no pasan, y si no uso la mencionada linea los parametros pasan correctamente pero debo confirmar cada parametro en un cuadro de dialogo, el cual logicamente no quiero que aparezca.

Alguien sabe que esta sucediendo¿?

Muchas Gracias.

Saludos.