Format DATA europeu i americà en Acces VBA

Capto una data d'un control ActiveX de tipus calendari:

data = calendari.value

fico aquesta variable dins una select:

...
'WHERE (((OCUPACION.FECHA)= #" & data & "# )
...

funciona fantàsticament pel dia 31 de març però el dia 03 d'abril me'l considera com a 4 de març.
Se que la data la capta en format americà, però fent un debug aparentment està bé...

Busco una mica i dins
http://www.lawebdelprogramador.com/foros/Access/1304492-Formato_de_fechas_Europeo_-_Americano.html
trobo la solució:

WHERE (((OCUPACION.FECHA)= #" & Format([data], "mm/dd/yyyy") & "# )

Ara funciona perfectament