Si estas utilizando CR 9 seria asi...
esto te sirve para pasar varios parametro.... oaja te sirva!!!
`defines los parametros
Dim crParamDefs As CRAXDDRT.ParameterFieldDefinitions
Dim crParamDef As CRAXDDRT.ParameterFieldDefinition
Set crParamDefs = m_Report.ParameterFields
For Each crParamDef In crParamDefs
Select Case crParamDef.ParameterFieldName
Case "Parametro1"
crParamDef.AddCurrentValue (Text1.Text)
Case "Parametro2"
crParamDef.AddCurrentValue (Text2.Text)
End Select
Next