Intégration SQL pour MAJ

jai voulu mettre du sql dans mon code pour mettre a jour mes tables
mais avec les procédures evementielle donc sur le macro ca marche pas
et sur créer un requete sql aussi!
help me please

voici mon code sql:

UPDATE 'dbo.Participant_bak'
SET 'PaysPerso' = (
CASE
When 'dbo.Participant.PaysPerso_bak' = 'dbo.Pays.libelle_FR_Pays' THEN 'PaysPerso'='dbo.Pays.id_Pays'
When 'dbo.Participant.PaysPerso_bak' = 'dbo.Pays.libelle_EN_Pays' THEN 'PaysPerso'='dbo.Pays.id_Pays'
ELSE 200
)

CREATE INDEX indexer ON dbo.Participant(dbo.Participant_bak.PaysPerso)
ALTER TABLE dbo.Participant ALTER COLUMN INT dbo.Participant.PaysPerso_bak[(4)]
ALTER TABLE dbo.Participant ALTER COLUMN dbo.Participant.PaysPerso_bak CONSTRAINT FKeyÉtat REFERENCES dbo.Pays (dbo.Pays.id_Pays)

et sur macro:
Private Sub Commande38_Click()

'déclaration variable

Dim strSQL As String

'inscruction

strSQL = "UPDATE 'dbo.Participant_bak'" & vbCrLf & _
"SET 'PaysPerso' = (" & vbCrLf & _
"CASE" & vbCrLf & _
"When 'dbo.Participant.PaysPerso_bak' = 'dbo.Pays.libelle_FR_Pays' THEN 'PaysPerso'='dbo.Pays.id_Pays'" & vbCrLf & _
"When 'dbo.Participant.PaysPerso_bak' = 'dbo.Pays.libelle_EN_Pays' THEN 'PaysPerso'='dbo.Pays.id_Pays'" & vbCrLf & _
"ELSE 200" & vbCrLf & _
")" & vbCrLf & _
"CREATE INDEX indexer ON dbo.Participant(dbo.Participant_bak.PaysPerso)" & vbCrLf & _
"ALTER TABLE dbo.Participant ALTER COLUMN INT dbo.Participant.PaysPerso_bak[(4)]" & vbCrLf & _
"ALTER TABLE dbo.Participant ALTER COLUMN dbo.Participant.PaysPerso_bak CONSTRAINT FKeyÉtat REFERENCES dbo.Pays (dbo.Pays.id_Pays);"
If (strSQL) Then
MsgBox " fait"
End If

End Sub