problème requête SQL VBA [resolu]

Salut à tous, j'ai un petit concernant l'exécution de ma requête SQL qui interroge ma base ACCESS

Parmis les modèles de véhicule que je recherche j'ai la KIA CEE'D mais comme vous pouvez le constater dans CEE'D il y a un ' donc dans ma requête.... il n'arrive pas à trouver ce modèle

l'erreur qu'il m'indique est : Erreur de syntaxe (opérateur absent) dans l'expression '(((MARQUE.Marque)='KIA') AND ((MODELE.Modele)='CEED'D') AND ((GENRE.Genre)='VP'));'

le ' pose problème. Alors comment éviter qu'il ne prenne ce ' comme une balise.

Voici le code

For J = 35000 To 36000

    'On Error Resume Next

    'Requête SQL2

    val = Sheets("IMMATs Modèle VP").Range("C" & J).Text

    val2 = Sheets("IMMATs Modèle VP").Range("D" & J).Text

    val3 = Sheets("IMMATs Modèle VP").Range("E" & J).Text

    strSql = "SELECT DISTINCT Modele.Id_Modele FROM Genre INNER JOIN (MARQUE INNER JOIN Modele ON MARQUE.Id_Marque = Modele.Id_Marque) ON Genre.Id_Genre = Modele.Id_Genre WHERE (((MARQUE.Marque)=" & "'" & val & "'" & ") AND ((Modele.Modele)=" & "'" & val2 & "'" & ") AND ((Genre.Genre)=" & "'" & val3 & "'" & "));"

 
    'Ouverture du jeu d'enregistrements.

    Set rst = New ADODB.Recordset

 
    'Paramètres de Résultat de la Requête

    With rst

        .Open Source:=strSql, _

        ActiveConnection:=cn, _

        CursorType:=adOpenForwardOnly, _

        LockType:=adLockReadOnly

    End With

Merci d'avance pout votre aide