Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles Button1.Click



        Dim cryRpt As New ReportDocument

        cryRpt.Load("PUT CRYSTAL REPORT PATH HERE\CrystalReport1.rpt")



        Dim crParameterFieldDefinitions As ParameterFieldDefinitions

        Dim crParameterFieldDefinition As ParameterFieldDefinition

        Dim crParameterValues As New ParameterValues

        Dim crParameterDiscreteValue As New ParameterDiscreteValue



        crParameterDiscreteValue.Value = Convert.ToInt32(TextBox1.Text)

        crParameterFieldDefinitions =  _

				cryRpt.DataDefinition.ParameterFields

        crParameterFieldDefinition =  _ 

				crParameterFieldDefinitions.Item("Price")

        crParameterValues = crParameterFieldDefinition.CurrentValues



        crParameterValues.Clear()

        crParameterValues.Add(crParameterDiscreteValue)

        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)



        CrystalReportViewer1.ReportSource = cryRpt

        CrystalReportViewer1.Refresh()

    End Sub

End Class