Pb ACCESS et apostrophe

Bonjour,

J'ai un probleme avec Access lorsque j'utilise une fonction qui permet d'atteindre une fiche à partir d'un nom qui contient une apostrophe.

Ma fonction est la suivante :

Private Sub Commande15_Click()

On Error GoTo Err_Commande15_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "BD1"
stLinkCriteria = "[Raison sociale]=" & "'" & Me![Raison sociale] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Commande15_Click:
Exit Sub

Err_Commande15_Click:
MsgBox Err.Description
Resume Exit_Commande15_Click

End Sub

j'ai lu qu'il fallait "doubler les apostrophes" mais je n'arrive pas à faire fonctionner ma formule en les doublant (je dois mal m'y prendre).

ou dois-je modifier ma formule pour que cela fontionne ??

merci d'avance pour votre aide.

Séb