Errore su query estrazione Anno

[ubbicom]

Buonasera a tutti.

Nel campo DataVisita di un db access ho registrato la data in questo formato:

2006/01/07

Vorrei eseguire una query che estragga i records per "Anno" e scrivo:

strAnno = cInt(2006)

   SQLDown = "SELECT * FROM myTable WHERE Left(DataVisita, 4) = "& strAnno &" "

Perchè va in errore ???:

Error Type:
Microsoft JET Database Engine (0x80040E07)
Data type mismatch in criteria expression.