-  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 
-