Crystal Report - Problema con Fechas.

Tengo el siguiente codigo para generar un reporte que abarque un rango de fechas.
Pero cuando corro el programa, recibo el mensaje:

"A string is required"

Primera = CDate(TxtBuscarfecha.Text) ' se supone que en Fecha1.text y Fecha2.Text tengo fechas validas
ultima = CDate(Fecha2.Text)
dia1 = Day(Primera)
mes1 = Month(Primera)
ano1 = Year(Primera)
dia2 = Day(ultima)
mes2 = Month(ultima)
ano2 = Year(ultima)
'nombre.Text = Combo2.List(Combo2.ListIndex)

'se supone que ya declare estas variables
' Paso campos de Fechas

Reportes.SelectionFormula = "{Diario.Fecha} in Date(" & ano1 & "," & mes1 & "," & dia1 & " ) to Date (" & ano2 & "," & mes2 & "," & dia2 & ")"

Agradecería mucho cualquier ayuda.
Gracias

No socio asi no, crystal es un poco especial en las fechas al pasarlas desde vb

si utilizas un masked para las fechas haz mas o menos asi:

Declara variables asi:
Dim diadesde,mesdesde,aniodesde,diahasta,meshasta,aniohasta
diadesde=mid(txtfecha1.text,1,2)
mesdesde=mid(txtfecha1.text,4,2)
aniodesde=mid(txtfecha1.text,7,4)
..igual para diahasta y mes y aniohasta

luego pasas los parametros asi :

Reportes.SelectionFormula = "{Diario.Fecha}>=CDate(" & aniodesde & "," & mesdesde & "," & diadesde & " ) and diario.fecha<=CDate (" & aniohasta & "," & meshasta & "," & diahasta & ")"

y asunto arreglado

cualquier duda me escribes

Hola Wilfredo.

Escribi el codigo que me enviaste para hacer un reporte por rango de fechas.

Dim diadesde, mesdesde, aniodesde, diahasta, meshasta, aniohasta
diadesde = Mid(TxtBuscarfecha.Text, 1, 2)
mesdesde = Mid(TxtBuscarfecha.Text, 4, 2)
aniodesde = Mid(TxtBuscarfecha.Text, 7, 4)
diahasta = Mid(Fecha1.Text, 1, 2)
meshasta = Mid(Fecha1.Text, 4, 2)
aniohasta = Mid(Fecha1.Text, 7, 4)

Reportes.SelectionFormula = "{Diario.Fecha}>=CDate(" & aniodesde & "," & mesdesde & "," & diadesde & " ) and diario.fecha<=CDate (" & aniohasta & "," & meshasta & "," & diahasta & ")"


Pero recivo el siguiente mensaje de error:

"a number, currency amount, boolean, date, time, date-time or string is spected here"


Te agradecería mucho si me pudieras ayudar, pues no sé que es lo que me falta para que el código funcione.

Gracias.
Adolfo.