Visual Basic - Problemas con fechas

Tengo que hacer consultas por intervalos de fechas que se introducen mediante dos datapicker, primero se selecciona el tipo de documento,luego el intervalo de fechas y se ejecuta la consulta.el código es el siguiente:
If optFactA.Value = True Then
Frame2.Visible = False
adoConsulta.CommandType = adCmdText
adoConsulta.RecordSource = "SELECT * FROM Facturas_A WHERE FECHA >= " & _
" # " & dtpInicio & " # AND FECHA <= # " & dtpFinal & " # ORDER BY FECHA;"
adoConsulta.Refresh
Else
If optFactB.Value = True Then
Frame2.Visible = False
adoConsulta.CommandType = adCmdText
adoConsulta.RecordSource = "SELECT * FROM Facturas_B WHERE FECHA >= " & _
" # " & dtpInicio & " # AND FECHA <= # " & dtpFinal & " # ORDER BY FECHA;"
adoConsulta.Refresh
Else
If optAlbaran.Value = True Then
Frame2.Visible = False
adoConsulta.CommandType = adCmdText
adoConsulta.RecordSource = "SELECT * FROM Albaranes WHERE FECHA >= " & _
" # " & dtpInicio & " # AND FECHA <= # " & dtpFinal & " # ORDER BY FECHA;"
adoConsulta.Refresh
Else
MsgBox "Primero selecciona que documentos quieres listar (Facturas A, B ó Albaranes)", vbExclamation
Exit Sub
End If
End If
End If

Esto funciona aveces si y otras no, y no se porque. También ocurre utilizando la claúsula Beetween. Por favor ayuda.

Hola ante todo debes documentarte acerca de como manjea las fechas el motor de base de datos que estas usando o si el driver es lo suficientemente bueno... En algunos casos como en mysql el formato con los #fecha# no funciona...

El problema en tu consulta normalmente es que la fecha para ciertos motores de base de datos es obligatoriamente mm/dd/yyyy (En estos Access y Sql Server). Entonces debes escribir tus fechas asi:

format(cdate(dtpInicio ),"mm/dd/yyyy")

Hola

El problema que tienes es facil de solucionar de la siguiente manera:

Select campofecha From Tabla Where Campofecha>=cdate(txtfecha.text)

el Cdate te convierte el texto de la caja de texto a fecha, eso es todo, cualquier inconveniente me escribes

Atentamente,

Wilfredo