Ayuda con fechas en vb6

[joshua_vi]

Hola, me estoy volviendo loco con las fechas, las he manejado mas de una vez y aunque es un lio no he tenido problemas.

Tengo dos fechas en dos label de un formulario en formato español dd/mm/yyyy
ej: 01/05/2015

cojo las fechas y las utilizo como argumento para llamar a un procedimiento que hara un busqueda en access, como access utiliza otro formato las convierto

fini = format(fini,"mm/dd/yyyy")

y luego hago las busqueda en access con resultado correcto

el problema viene que al sumar un dia, me suma un mes, en esta linea

fini = dateadd("d",1,fini)

o sea 05/01/2015 me lo deja en 06/01/2015 , no lo entiendo, llevo toda la tarde probando todo tipo de cosas y no se donde esta el error