Access - fecha con datepart

realizo una consulta en sql para seleccionar los registros segun mes y año para eso utilizo la siguiente consulta

varM = format(Date,"mm")
varY = Format(Date, "yyyy")
ad.Open "select * from mensaje where (datepart(mm,fecha)='" & varM & "' and datepart(yyyy,fecha)='" & varY & "') order by idmensaje asc", cn, adOpenKeyset, adLockOptimistic, adCmdText

la consulta me presenta un error no coindicen los tipos de datos en la expresion de criterio, si alguien me puede ayudar por favor

Datepart() devuelve un valo integer, por tanto sobran las comillas simples que rodean a VarM y VarY. Es decir, debería quedar, más o menos así:

...where (datepart(mm,fecha)=" & varM & " and datepart(yyyy,fecha)=" & varY & ") ...

Saludos.
José Bengoechea Ibaceta