Crystal Report con DateTimePicker

[asastrem]

Aqui les dejo unas pequeñas lineas, para mis amigos que tienen problema con las fechas:
Sql.- los campos son del tipo DateTime
Visual Net 2008.- el formato que manejan los DateTimePicker son Fecha

Dim ocRep As New cRep
Dim FI, FF As String
'Extraemos el año, mes y dia de los DateTimePicker

FI = dtpFI.Value.Year & "," & dtpFI.Value.Month & "," & dtpFI.Value.Day
FF = dtpFF.Value.Year & "," & dtpFF.Value.Month & "," & dtpFF.Value.Day

'Checamos que la fecha inicial sea menor a la final y consultamos
If FI > FF Then
MessageBox.Show("La Fecha inicial es mayor a la fecha final")
Else
ocRep.RecordSelectionFormula = "{layOut1.Fecha} In Date(" & FI & ") To Date(" & FF & ")"
Me.crvRep.ReportSource = ocRep
End If

End Sub