Visual Basic - Problema con Fechas en Cristal Report.

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)

'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

Escribe y te la envio mañana la respuesta, se me termino el tempo de trabajo.