Visual Basic - consulta con intervalo de fechas

como hago para que me todo una consulta con intervalo de fechas.
Tengo dos dtpicker(dtDesde, dtHasta), y quiero consultar en una BD, en el campo fecha(formato=fecha/hora =fecha corta). POr logica con un between tendria que andar bien, pero NO! despues probe con un >= O <=, pero menos. Alguien tiene un ejemplo que ande bien!!! toy nublado!
saludos espero su ayuda!!!
PD:trabajo con DAO!!

Ejemplo:
Sub Ejemplo()
Dim mibase As Database
Dim miregistro As Recordset
Dim sql As String
Dim Fecha1 As Date
Dim Fecha2 As Date
Set mibase = OpenDatabase("c:\Mantenimiento\Materiales.mdb")
Fecha1 = "22/04/2000"
Fecha2 = "22/04/2005"
sql = "Select * From OrdCab Where Fecha Between #" & Month(Fecha1) & "/" & Day(Fecha1) & "/" & Year(Fecha1) & "# And #" & Month(Fecha2) & "/" & Day(Fecha2) & "/" & Year(Fecha2) & "#"
Set miregistro = mibase.OpenRecordset(sql, dbOpenSnapshot)
If miregistro.RecordCount > 0 Then
miregistro.MoveLast
MsgBox "Total de Registros Encontrados: " & CStr(miregistro.RecordCount), vbInformation
miregistro.MoveFirst
End If
miregistro.Close
mibase.Close
End Sub

ejemplo
con.Open ("dsn=bodega")
txtsql = "select * from informes where fecha_ingreso between #" & Text2.Text & "# AND #" & Text3.Text & "# order by fecha_ingreso "
If Text2.Text = "" Then
MsgBox "DEBE INGRESAR FECHA"
Else
Set rs = con.Execute(txtsql)
If Not rs.EOF Then
Adodc1.RecordSource = txtsql
Adodc1.Refresh
Else
MsgBox " FECHA NO EXISTE"
Text2.Text = ""
Text2.SetFocus
End If
End If

MIRA,
LO QUE PASA ES QUE SEGURAMENTE TIENES FECHAS CON HORAS,
PORQUE DE LOC CONTRARIO TE PUEDO DECIR QUE DE LAS 2 FORMAS EN QUE HAS TRATADO ESTÁ BIEN.
ES ASÍ?????

No amigo, no tengo fechas con horas ni nada de eso..
pero, prueba tu mismo, pon un msgbox "xxxxxx", en el alguno de los modulos que mencione denantes, graba el formulario, cargalo y veras que primero pregunta lo de las macros y despues aparece el mensaje..

gracias igual..

Xausss