Visual Basic.NET - Crystal con parametros

Hola gente...!! Yo soy bastante ignorante al respecto de Crystal Report y la verdad nunca he hecho nada de reportes. Quiero aprender a enviar parametros. La situación es la siguiente: yo programo con VB.net 2005 y tengo una base de datos en access de donde necesito sacar reportes de diferentes fechas; lo que quiero es que en un Form pueda yo digitar un rango de fechas y se cargue los datos de ese rango. Me pueden enviar un ejemplo hecho para observar el código y poder moldearlo a mi gusto?
Salu2 y gracias....

VISUAL BASIC 2005.NET

En el crystal reports creas tus parametros de tipo fecha hora, debido a que las bases aunque les pongas que solo son fecha te guardan la hora en el campo, te vas a el asistente de seleccion con click derecho en la opcion Report ahi seleccionas el campo que vas a usar de la base de datos que se supone es de tipo fecha, luego el crystal te pide que digamos fechainicial (sea igual a, no sea igual a, mayor etc), ponle que sea -es entre-, en los combos que te pone el crystal ahi te deben salir los parametros de fecha en mi caso es fechainicial y fechafinal, los pones desde fechainicial hasta fechafinal, aceptar y te pasas a modificar el tipo de campo de fechainicial y fecha final, los pones como tipo fecha solamente, recuerda que los tenias de tipo fecha hora.

Pasate a visual y pon lo siguiente

'Declararias los siguientes campos
--------------------------------------------
Dim parametro_coleccion As New CrystalDecisions.Shared.ParameterValues()
Dim parametro_valor As New CrystalDecisions.Shared.ParameterDiscreteValue()
Dim rep As New rptConcentradodeCuentas'Este es el nombre de tu reporte
With rep
parametro_coleccion.Clear()
parametro_valor.Value = dtpFechaInicial.Value.Date
parametro_coleccion.Add(parametro_valor)
.DataDefinition.ParameterFields("FechaInicial").ApplyCurrentValues(parametro_coleccion)
parametro_coleccion.Clear()
parametro_valor.Value = dtpFechaFinal.Value.Date
parametro_coleccion.Add(parametro_valor)
.DataDefinition.ParameterFields("FechaFinal").ApplyCurrentValues(parametro_coleccion)
parametro_coleccion.Clear()
parametro_valor.Value = Lista_Compañias.SelectedItem
parametro_coleccion.Add(parametro_valor)
.DataDefinition.ParameterFields("Compañia").ApplyCurrentValues(parametro_coleccion)
crvReporte.ReportSource = rep
rep = Nothing
parametro_coleccion = Nothing
parametro_coleccion = Nothing
End With

----------------------------------------------
FechaInicial
FechaFinal
Compañia

Son los nombres de tus parametros

los parametros de tipo fecha trata de ponerlos solo fecha por que por default salen fecha hora.

espero te sirva bye

Amigo yo estoy pasando estos datos, pero no abre la forma que tienen el ReportViewer ni nada... que estoy colocando mal?

'frcrRepCamaras.crvRepCamaras.ReportSource = Nothing
Dim parametro_coleccion As New CrystalDecisions.Shared.ParameterValues()
Dim parametro_valor As New CrystalDecisions.Shared.ParameterDiscreteValue()
'Dim paramcoleccion As New CrystalDecisions.Shared.ParameterValues()
'Dim paramUniNeg As New CrystalDecisions.Shared.ParameterDiscreteValue
'Dim paramProducto As New CrystalDecisions.Shared.ParameterDiscreteValue
'Dim paramInicio As New CrystalDecisions.Shared.ParameterDiscreteValue
'Dim paramFinal As New CrystalDecisions.Shared.ParameterDiscreteValue
'Dim paramTipRep As New CrystalDecisions.Shared.ParameterDiscreteValue
Dim RepCam As New crReporteCamarasDesig
With RepCam
parametro_coleccion.Clear()
parametro_valor.Value = lblUniNeg.Text ' dtpFechaInicial.Value.Date
parametro_coleccion.Add(parametro_valor)
.DataDefinition.ParameterFields("sp_unineg").ApplyCurrentValues(parametro_coleccion)
parametro_coleccion.Clear()
parametro_valor.Value = txbProducto.Text ' dtpFechaFinal.Value.Date
parametro_coleccion.Add(parametro_valor)
.DataDefinition.ParameterFields("sp_cditem").ApplyCurrentValues(parametro_coleccion)
parametro_coleccion.Clear()
parametro_valor.Value = dtpInicio.Value.ToString("dd/MM/yyyy") ' Lista_Compañias.SelectedItem
parametro_coleccion.Add(parametro_valor)
.DataDefinition.ParameterFields("sp_fecemi1").ApplyCurrentValues(parametro_coleccion)
parametro_coleccion.Clear()
parametro_valor.Value = dtpFinal.Value.ToString("dd/MM/yyyy") ' Lista_Compañias.SelectedItem
parametro_coleccion.Add(parametro_valor)
.DataDefinition.ParameterFields("sp_fecemi2").ApplyCurrentValues(parametro_coleccion)
parametro_coleccion.Clear()
parametro_valor.Value = "R" ' Lista_Compañias.SelectedItem
parametro_coleccion.Add(parametro_valor)
.DataDefinition.ParameterFields("sp_tiprep").ApplyCurrentValues(parametro_coleccion)
frcrRepCamaras.crvRepCamaras.ReportSource = RepCam ' crvReporte.ReportSource = RepCam
RepCam = Nothing
parametro_coleccion = Nothing
parametro_coleccion = Nothing
End With

*** no lleva un frcrRepCamaras.Show()?