Visual Basic - consulta en rango de 2 fechas-vb6

Tengo problema en visual basic 6, consulta en rango de 2 fechas de diferente mes ejm:
finicial = DTPicker1.Value ' 25/08/2013
ffinal = DTPicker2.Value ' 03/09/2013

rsConsulta.Open "SELECT * FROM ventas WHERE fecha BETWEEN #" & Format(finicial, "dd/mm/yyyy") & "# and #" & Format(ffinal, "dd/mm/yyyy") & "#", con, adOpenDynamic, adLockBatchOptimistic

solo me encuentra los registros del día 25 y no los siguientes.he probado cambiando el format a "mm/dd/yyyy" pero igual.
en mi base de datos los valores tienen el formato dd/mm/yyyy. y tengo registros de fecha:
25/08/2013
28/08/2013
03/09/2013...etc
espero su apoyo
Atentamente . MArco

independientemente que base de datos estas utilizando, envia el formato aaaa/mm/dd