VBA - Problème INSERT INTO

Bonjour,

J'ai un souci avec ma requête SQL ou plutôt avec mon Visual Basic. Je souhaite insérer une ligne dans une table mais j'utilise des conditionnelles avant d'insérer cette ligne. Voici mon code :

Dim chaineSQL As String
Dim db As Database
Dim rs As Recordset

Set db = CurrentDb

chaineSQL = "INSERT INTO Lycée([Num_Lycee],[Nom_Lycee],[Rue_Lycee],[CP_Lycee],[Ville_Lycee],[Site_Web]) Values ('" & 156 & "','" & Me!SousformulaireLycee!nom_lycee & "','" & Me!SousformulaireLycee!Rue_Lycee & "',' " & Me!SousformulaireLycee!CP_Lycee & "',' " & Me!SousformulaireLycee!Ville_Lycee & "',' " & Me!SousformulaireLycee!Site_Web & " ');"

Set rs = db.OpenRecordset (chaineSQL)

Merci!!