Tu écris le Docmd.RunSQL en plus ? ?
Car à première vue, il demande une véritable instruction SQL ( donc du select au ; ).
Je ne connais pas VB/Access donc je suis pas sur de mon coup mais essaie de mettre juste ce que tu as entre " " en attendant d´avoir d´autres réponses.
Sinon, ta requête à l´air bonne