Probleme de requete sql vba excel et variable

[alexkickstand]

Bonjour, je ne sais pas si je peux insérer dans une requete access une variable récupéré d'un formulaire :

j'ai une requete en access qui s'appelle : QUERY_JOB_TRACKING
cette requete récupère des données de la table Carte suivant un numéro de Job
voici le code sql de la requete :

[COLOR=#0000ff]SELECT[/COLOR] Carte.Job, Carte.Code_Ope, Carte.[COLOR=#0000ff]Date[/COLOR]
FROM Carte
WHERE (((Carte.Job)=job_tracking));

j'ai un form avec un bouton avec le code suivant :

 [COLOR=#0000ff]Private[/COLOR] [COLOR=#0000ff]Sub[/COLOR] Command0_Click()
 
  [COLOR=#0000ff]Dim[/COLOR] dba [COLOR=#0000ff]As[/COLOR] Database
  [COLOR=#0000ff]Dim[/COLOR] Enreg [COLOR=#0000ff]As[/COLOR] Recordset
  [COLOR=#0000ff]Dim[/COLOR] tbl_def [COLOR=#0000ff]As[/COLOR] TableDef
  [COLOR=#0000ff]Dim[/COLOR] tbl_name [COLOR=#0000ff]As[/COLOR] TableDef
  [COLOR=#0000ff]Dim[/COLOR] STR_SQL1, STR_SQL2, STR_SQL3
  
  job_tracking = [COLOR=#ff0000]"10005"[/COLOR]
  MsgBox (job_tracking)
 
  [COLOR=#808080]'Ouverture de la base de données "mabase.mdb"[/COLOR]
   [COLOR=#0000ff]Set[/COLOR] dba = OpenDatabase([COLOR=#ff0000]"V:\UPDATES\Alex\ACCESS\excel\mabase.mdb"[/COLOR])
  
  [COLOR=#808080]'suppression de la table JOB_TRACKING si existante[/COLOR]
   dba.TableDefs.Refresh
    [COLOR=#808080]' If RecentHires query exists, delete it.[/COLOR]
     [COLOR=#0000ff]For[/COLOR] [COLOR=#0000ff]Each[/COLOR] tbl_def [COLOR=#0000ff]In[/COLOR] dba.TableDefs
        [COLOR=#0000ff]If[/COLOR] tbl_def.Name = [COLOR=#ff0000]"JOB_TRACKING"[/COLOR] [COLOR=#0000ff]Then[/COLOR]
          dba.TableDefs.Delete tbl_def.Name
        [COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]If[/COLOR]
     [COLOR=#0000ff]Next[/COLOR] tbl_def
 
[COLOR=#808080]' requete sql qui copie les données de la requete QUERY_JOB_TRACKING[/COLOR]
[COLOR=#808080]' dans une nouvelle table JOB_TRACKING suivant le numéro de job_tracking[/COLOR]
 
STR_SQL1 = [COLOR=#ff0000]"SELECT QUERY_JOB_TRACKING.* INTO"[/COLOR]
STR_SQL2 = [COLOR=#ff0000]" [JOB_TRACKING] FROM QUERY_JOB_TRACKING "[/COLOR]
STR_SQL3 = [COLOR=#ff0000]"WHERE [Carte].Job = '"[/COLOR] & job_tracking & [COLOR=#ff0000]"';"[/COLOR]
STR_SQL = STR_SQL1 & STR_SQL2 & STR_SQL3
 
Debug.Print STR_SQL
 
dba.Execute (STR_SQL)
 
dba.Close
 
[COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]Sub[/COLOR]

j'ai une erreur :

error runtime 3061
Too few parameters. Expected 1.

Merci d'avance pour de l'aide

Alex