Gracias por su ayuda ya lo puede resolver con el ejemplo y lo adapte a como me servia aqui dejo como lo hice:
Código:
CrystalReportViewer1.RefreshReport()
Dim paramField As New ParameterField()
Dim paramFields As New ParameterFields()
Dim paramDiscrete As New ParameterDiscreteValue()
paramField.ParameterFieldName = "nombre_del_parametro"
paramDiscrete.Value = nombre 'asignar el Valor para el parametro
paramField.CurrentValues.Add(paramDiscrete)
paramFields.Add(paramField)
CrystalReportViewer1.ParameterFieldInfo = paramFields
Dim bol As New boleta_arresto()
CrystalReportViewer1.ReportSource = bol
CrystalReportViewer1.Refresh()