Visual Basic.NET - envio de parametros a crystal

bueno mi pregunta es cómo puedo mandar yo 2 parametros cristal report para poder hacer una consulta de rangos en crystal bueno tengo un código para enviar parámetros que este:
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 = parametro
parmfield.Name = "karfer"
parmfield.CurrentValues.Add(parmValue)
parmfields.Add(parmfield)
CrystalReportViewer1.ReportSource = "E:\fecha.rpt"
CrystalReportViewer1.ParameterFieldInfo = parmfields
Pero ahora lo que quiero es enviar dos parametros al mismo tiempo...
De antemano muchas gracias por cualquier ayuda...
atte. spider

en este ejemplo envio tres parametros

Dim ParamIni As New ParameterDiscreteValue
Dim ParamFin As New ParameterDiscreteValue
Dim ParamTienda As New ParameterDiscreteValue

ParamIni.Value = txtdel.Text
ParamFin.Value = txtal.Text
ParamTienda.Value = CodEmpresa

Dim ParamList As New ParameterFields
Dim ParamTemp As ParameterField

ParamTemp = New ParameterField
ParamTemp.ParameterFieldName = "Inicio"
ParamTemp.CurrentValues.Add(ParamIni)
ParamList.Add(ParamTemp)

ParamTemp = New ParameterField
ParamTemp.ParameterFieldName = "Fin" ParamTemp.CurrentValues.Add(ParamFin)
ParamList.Add(ParamTemp)

ParamTemp = New ParameterField
ParamTemp.ParameterFieldName = "CodigoEmpresa"
ParamTemp.CurrentValues.Add(ParamTienda)
ParamList.Add(ParamTemp)

crv.ParameterFieldInfo = ParamList
crv.ReportSource = New rptFac

Gracias!!!
Eres un amor!!!!!!...
Besos!!!