Dim x As New CrystalReport2

        Dim p As New ParameterValues
        Dim p2 As New ParameterValues

        Dim cP As New ParameterDiscreteValue
        Dim cP2 As New ParameterDiscreteValue

        cP.Value = "OK"
        cP2.Value = "OK2"

        p.Add(cP)
        p2.Add(cP2)

        x.DataDefinition.ParameterFields("name").ApplyCurrentValues(p)
        x.DataDefinition.ParameterFields("name2").ApplyCurrentValues(p2)

        CrystalReportViewer1.ReportSource = x

        Dim x As New CrystalReport2
        Dim d As String = "Проверка связи"
        x.SetParameterValue("name", d)
        x.SetParameterValue("name2", d)
        CrystalReportViewer1.ReportSource = x