este es camarada
Imports Crystaldecisions.crystalreports.engine
Imports Crystaldecisions.reportsource
Imports Crystaldecisions.shared
Imports Crystaldecisions.windows.forms
Public Class Form1   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim parmfields As CrystalDecisions.Shared.ParameterFields = CrystalReportViewer1.ParameterFieldInfo
        Dim parmfield As New CrystalDecisions.Shared.ParameterField()
        Dim parmValues As New CrystalDecisions.Shared.ParameterValues()
        Dim parmValue As New CrystalDecisions.Shared.ParameterDiscreteValue()
        parmValue.Value = "pedro"
        parmfield.Name = "fier"
        parmfield.CurrentValues.Add(parmValue)
        parmfields.Add(parmfield)
        CrystalReportViewer1.ParameterFieldInfo = parmfields
    End Sub
End Class
gracias!!!! :-)
quria saber si es posible contactarte en messanger mi correo es: 
spiderman160281@hotmsil.com