Transformer une requete SQL en code VB

Bonjour,

je voudrais exécuter une requête Access paramétré dont mon paramètre est fonction d'une variable.
j'ai donc écrit le code suivant:

Set qdf= CurrentDb.QueryDefs("PARAMETERS TON_PARAM Text; DELETE Table1.Code AS Expr1, [Table1]![Code] FROM Table1 WHERE ((([Table1]![Code]) <> [TON_PARAM]));")
   
      With qdf
         .Parameters("TON_PARAM") = CodeChantier
         .Execute
      End With

Or il m'affiche le message d'erreur suivant: Erreur de syntaxe dans la clause parameter

Je suis pas un pro du code VB est ce que l'un de vous voit une erreur dans le code?