How to populate crystal report using data set with including parameter fields.

'This is my select query
Dim rpt As New rptItems()
Dim myConnection As OleDbConnection
Dim MyCommand As New OleDbCommand()
Dim myDA As New OleDbDataAdapter()
Dim myDS As New DataSet 'The DataSet you created.
myConnection = New OleDbConnection(cnn)
MyCommand.Connection = myConnection
MyCommand.CommandText = "SELECT ItemCode, ItemName,Qty FROM ItemTable"
MyCommand.CommandType = CommandType.Text
myDA.SelectCommand = MyCommand

myDA.Fill(myDS, "Dataset1")

rpt.SetDataSource(myDS)
Report.CrystalReportViewer1.ReportSource = rpt
Report.Show()

'**********************************************************************************
'This is my parameter fields.
Dim rpt As New rptItems()
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldDefinition As ParameterFieldDefinition
Dim crParameterValues As New ParameterValues
Dim crParameterDiscreteValue As New ParameterDiscreteValue

crParameterDiscreteValue.Value = TextBox1.Text
crParameterFieldDefinitions = rpt.DataDefinition.ParameterFields
crParameterFieldDefinition = crParameterFieldDefinitions.Item("Customername")
crParameterValues = crParameterFieldDefinition.CurrentValues

crParameterValues.Clear()
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

Report.CrystalReportViewer1.ReportSource = rpt
Report.CrystalReportViewer1.Refresh()
Report.Show()