Visual Basic - AYUDA DE UN EXPERTO EN FORMATO DE FECHAS

Tengo una pequeña aplicacion en VB6.0 con ACCESS el problema es que yo mando una consulta :
"Select * from TAB1 Where Estado='N' and Fecha
BetWeen #" & fec1.Value & "# and #" & fec2.Value & "#"
y el problema esta en el formato, por ejemplo le doy los valores '01/08/2004' y '05/08/2004' para tener un reporte de los 5 primeros dias de Agosto, pero Access me evalua desde enero hasta mayo, osea invirtiendo el DIA por el MES

Por favor AYUDA, ya he usado FORMAT(fecha,"dd/mm/yyyy") pero nada
de antemano muchas gracias
Damill

CÓMO HACER UNA CONSULTA ENTRE FECHAS, AÚN CUANDO UNA O LAS DOS SEAN (el dia) MENOR DE 13 (que es cuando hay que pasarlo al formato americano)

Hacemos que aún cuando no sea mayor de 13 uno de ellos, al serlo el otro se conviertan los dos al estilo inglés.

...
criterio1 = Format(txtDesde, "Short Date")
criterio2 = Format(txtHasta, "Short Date")
If CInt(Left(criterio1, 2)) < 13 Or CInt(Left(criterio2, 2)) < 13 Then
criterio1 = formateaFecha(criterio1)
criterio2 = formateaFecha(criterio2)
End If
SQL = "SELECT * FROM CAJA WHERE Fecha BETWEEN #" & criterio1 & "# AND #" & criterio2 & "# ORDER BY Fecha;"

LA FUNCIÓN ES LA QUE SIGUE:

Function formateaFecha(crit) As Date
Dim entra$, prime$, segun$, ultim$
entra = CStr(crit)
prime = Mid(entra, 4, 2)
segun = Left(entra, 2)
ultim = Right(entra, 4)
entra = prime & "/" & segun & "/" & ultim
formateaFecha = Format(entra, "Short Date")
End Function

Intenta con el formato 'yyyy-mm-dd' que en general nunca trae problemas.

Me alegro que estés por aquí...

Que soba web-bos eres!!!!!!! :-0

O simplemente hacé:

where campo_fecha = #" & Format(Dato_Fecha, "mm/dd/yyyy") & "#

Un abrazo.