-   
-   Dim Parametros As New ParameterFields 
-   Dim parametro As New ParameterField 
-   Dim dVal As New ParameterDiscreteValue 
-   parametro.ParameterFieldName = "NOMBRE_DEL_PARAMETRO" 
-   dVal.Value = "VALOR_DEL_PARAMETRO" 
-   parametro.CurrentValues.Add(dVal) 
-   Parametros.Add(parametro) 
-   CrystalReportViewer1.ParameterFieldInfo = Parametros 
-   
-