Visual Basic - Problema con fecha

Tengo el siguiente problema :
en el access XP tengo un campo fecha del formatto DD/MM/AA
realizo mis consultas y reportes con sql, por ejemplo
.....
sql="SELECT * FROM VENTAS WHERE FECHA=' "& TXT_FECHA & " ' "
.....

PEROOOOOOOOOOOOO todo trabaja bien mientras las fechas estan en formato INGLES osea MM/DD/AA y para esto, tengo que ir a PANEL DE CONTROL ----> CONFIGURACION REGIONAL Y DE IDIOMA y en la ficha de OPCIONES REGIONALES seleccionar INGLES (ESTADOS UNIDOS) por que si no hago esto y lo dejo como ESPAÑOL PERU cuando ejecuto la consulta me sale en blanco como si no consiguiera la fecha.

EN VERDAD NO SE QUE PUEDA ESTAR PASANDO.

Gracias por la sugerencia.

James

Para...

sql="SELECT * FROM VENTAS WHERE FECHA=' "& TXT_FECHA & " ' "

puedes usar:

sql="SELECT * FROM VENTAS WHERE FECHA=' "& format(TXT_FECHA,'MM/DD/YYYY') & " ' "

o


sql="SELECT * FROM VENTAS WHERE FECHA=#"& format(TXT_FECHA,'MM/DD/YYYY') & "#"


o creando una funcion en un modulo para el formateo de la fecha

Public Function esFecha(fecha as String) As String
EsFecha = "#" & format(fecha, "mm/dd/yyyy") & "#"
End Function

y la usas asi

sql="SELECT * FROM VENTAS WHERE FECHA="& esFecha(TXT_FECHA.Text


ESPERO TE SIRVA

Remplaza las apostrofes por el signo de #

tu consulta quedaria asi
" SELECT * FROM VENTAS WHERE FECHA = # "& TXT_FECHA & " # "

OJO: Txt_fecha deve de ser una variable de tipo date y deve de tener el formato que estes utilizando en tu programa, esto lo puedes hacer asi:

Text1.Text = Format(Date$, "dd/mm/yyyy")
Txt_fecha = CDate(Text1.Text)