Xailer & OZ Software

Hola tengo lo siguiente
METHOD BtnBmpFiltrarClick( oSender ) CLASS TFDatosAnimales
local variables := space(0)
local control := .f.
WITH OBJECT ::oDbfAnimales1
SET FILTER TO
IF ::oDateNACI1:Value != CTOD("")
If len(VARIABLES) > 0
VARIABLES = VARIABLES + " .AND. "
end if
VARIABLE := "F_NACI>=" +CHR(34)+ DTOC(::oDateNACI1:Value) + CHR(34)
msginfo(VARIABLE)
end if
//::oDbfAnimales1:Filter(VARIABLES)
SET FILTER TO &VARIABLES.
end with
::oDBBrAnimales:Refresh()
retrun
quiero dado una fecha en el un oDate filtral la base de datos con la fecha
mayor o igual a la dada
en el dataset oDbfAnimales1 y el campo es FNACI