Requete vb

Bonjour,
Je suis sous access 2003, j'ai réalisé un code vb qui me permet d'effectuer différente requet SQL, aprés avoir sélectionnée un enregistrement je souhaite l'inserer dans une autre table, j'ai pour cela appeller une requete INSERT, mais quand j'execute le programme un message me dissant qu'il ya a une erreur de syntaxe sur ma requete SQL; je ne vois pas ou est le probléme alos si vous pouviez m'aider...

voici le bout de code (requete selection +insert) :

Dim db As Database
Dim Rs As Recordset
Dim sql, sql2, sql3, sql4 As String
Dim n, No, ct, cD, S, A, CP, V, Sec, Imput, AC, Com, Ré, Date_D As String
Dim dde, Tel_dde, Dos, EBL, Interlo, Tel_Interlo, Date_M As String



'Récupération du numero de tel dans formulaire
N_D = Forms!FrmPrincipal!No


'Execution de la requete de sélection
Set db = CurrentDb
sql = "Select Tel_Archive.[No],* from Tel_Archive where Tel_Archive.No = " & Chr(34) & N_D & Chr(34)
Set Rs = db.OpenRecordset(sql)


'Récuperation du résultats de la requête


Rs.MoveFirst
While Not Rs.EOF

n = Rs.Fields("Numéro")
No = Rs.Fields("No")
ct = Rs.Fields("Cpt")
cD = Rs.Fields("Code D")
A = Rs.Fields("Adresse")
CP = Rs.Fields("CP")
V = Rs.Fields("Ville")
Sec = Rs.Fields("Secteur")
Imput = Rs.Fields("Imputation")
Com = Rs.Fields("Commentaires")
Ré = Rs.Fields("Résiliation")
Date_D = Rs.Fields("Date demande")
dde = Rs.Fields("demandeur")
Tel_dde = Rs.Fields("Tel Demandeur")
Dos = Rs.Fields("Dossier")
EBL = Rs.Fields("EBL")
Interlo = Rs.Fields("Interlocuteur")
Tel_Interlo = Rs.Fields("Tel Inerlocuteur")
Date_M = Now


'Création des données dans la table PDA
sql2 = "INSERT INTO Tel (Numéro, No, Cpt, Code_D, Site, Adresse, CP, Ville, Secteur, Imputation, Autre_Code, Commentaires, Résiliation, Date demande, Demandeur, Tel_Demandeur, Dossier, EBL, Interlocuteur, Tel_Inerlocuteur, Date_creation) VALUES ('" & n & "','" & No & "','" & ct & "','" & cD & "','" & S & "','" & A & "','" & CP & "','" & V & "','" & Sec & "','" & Imput & "','" & AC & "','" & Com & "','" & Ré & "','" & Date_D & "','" & dde & "','" & Tel_dde & "','" & Dos & "','" & EBL & "','" & Interlo & "','" & Tel_Interlo & "','" & Date_M & "')"
db.Execute (sql2)