Visual Basic - Fecha VB - Access

Hola Amigos, su ayuda por favor.

Tengo 2 Text para un rango de fechas, aqui capturo dd/mm/aaaa
Prepara mi SQL para accesar la tabla de ACCESS con ADO

sgblSQL = ""
sgblSQL = "SELECT Fecha, NomCte, Sucursal, NumFac, Importe"
sgblSQL = sgblSQL & " FROM TbPagosFac"
sgblSQL = sgblSQL & " WHERE Fecha Between #" & txtFecha1 & "# And #" & txtFecha2 & "#"

En Access tengo definido el campo de la siguiente manera:
Nombre de Campo = Fecha
Tipo de Datos = Fecha/Hora

si yo grabo en este campo de fecha por ej = 04/09/2007 => yo supongo que es dd/mm/aaaa, Si entro a ACCESS, el dato de la fecha se ve igual 04/09/2007.

Pero cuando hago la consulta con la instruccion de arriba, me toma en access mm/dd/aaaa

alguien me puede ayudar para arreglar mi problemla, para que yo pueda manejar tanto en VB como en Access => dd/mm/aaaa.

Gracias

Funcionaria con:

FormatDateTime(txtfecha1.Text, vbShortDate)

prueba, y ojala te sea util
Suerte!

Gracias de antemano por responder.

No tuve suerte, no me funcionó. creo que es por como esta definido en ACCESS, no estoy seguro, he estado haciendo muchas pruebas, sin exito, para manejar dd/mm/aaaa.

sgblSQL = "SELECT * FROM TbPagosFac"
sgblSQL = sgblSQL & " WHERE Fecha Between #" & FormatDateTime(txtFecha1.Text, vbShortDate)
sgblSQL = sgblSQL & "# And #" & FormatDateTime(txtFecha2.Text, vbShortDate) & "#"

SELECT * FROM TbPagosFac WHERE Fecha Between #04/09/2007# And #04/09/2007#

Access lo toma como 9 de Abril del 2007. en lugar de 4 de Sept del 2007. aunque en access este grabado como 04/09/2007

Se los agradecería mucho si me ayudan con otro tip.
Gracias y Saludos

sgblSQL = "Select * From tbPagosFac Where Fecha Between #" & Format(txtFecha1, "mm/dd/yyyy) & "# And #" & Format(txtFecha2, "mm/dd/yyyy") & "#"

Muchas Gracias x la ayuda Ivan, me sirvió mucho.

Amigos del Foro, la respuesta la encontré aquí mismo, en este foro. resuesta de Ceclia Calalongo. 01/07/07

Si la base de datos es Access:

sentenSql = " Fecha >=#" & Format(FechaIni,"yyyy-mm-dd") & "# and Fecha <= #" & Format(FechaFin,"yyyy-mm-dd") & "#"

Se es SQL Server:

sentenSql = " Fecha >='" & Format(FechaIni,"yyyy-mm-dd") & "' and Fecha <= '" & Format(FechaFin,"yyyy-mm-dd") & "'"

Se los dejo por si a alguien le sive.

Saludos y gracias.

en el caso de access pueden utilizar lo siguiente:

dim Loquequieran as String

Loquequieran = "Fecha =#" & Format(txtFecha, "mm/dd/yyyy") & " #"

espero les sirva

hola Edgar...vaya tuve el mismo problemita, te entiendo porque me amaneci buscando la soluciòn de mil formas y nada... y creo lo curioso de esto es que si ingesas una fecha que # 13/09/2007 # ahi si lo toma bien, mas no asi si ingresas una fecha como #04/09/2007 # ....en mi caso optè por ingresarlas en formato "mm/dd/yyyy" y curiosamente ahi si lo toma correctamente y la consulta que hago desde el formulario lo hago hajo el mismo formato, aparentemente di con la solución aunque tendria que someterlo aun a mas pruebas, ya veo que te dieron algunas respuestas muy interesantes (de las cuales tomare nota) pero igual queria hacerte llegar mi comentario.... bueno suerte con tu aplicacion
saludos

Muchas Gracias por tu comentario Artidoro, con lo que me dices, tendré que hacer mil pruebas para asegurarme que funcione bien, de lo contrario tendré que hacer lo mismo que tu, o definitivamente, cambiarlo a "yyyy/mm/dd".

Gracias.
Saludos