fecha en query...

[lewzip]

Hola a todos, tengo un problemilla al querer hacer una consulta con una variable tipo date (vb6) e insertarla en el query

asi:

Dim fechasys As Date
fechasys = Date
Dim SQL As String
'Filtrando solo por campos ANO_PRESE y NUME_ORDEN
'SQL = "SELECT ANO_PRESE y NUME_ORDEN from ADU005 WHERE FNDCL = #" & fechasys & "#"

pero me muestra errores, alguien sabe como debo poner la fecha????

Gracias por anticipado