pb apostrophes et fonction Replace()

[xycoco]

bonjour à  tous,
j'ai créé un formulaire issu d'une table cépages avec une liste déroulante liée à  ID Cépages (liste de nom de cépages) afin de rechercher l'enregistrement correspondant. Comme ce champ contient des noms avec des apostrophes, j'ai inscrit le code suivant sur AprèsMiseAJour :
Private Sub Modifiable4_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrà´le.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[ID cépage]= '" & Replace(Me![Modifiable4], "'", "''") & "'"
Me.Bookmark = rs.Bookmark
End Sub

Cela marche si mon champ ne possède pas d'apostrophes, mais dès qu'il y en a une l'enregistrement n'est pas rescherché. Aprsè plusiers heures de recherche, j'ai constaté que ce problème était lié avec l'indexage de mon champ ID Cépages. Si je retire la clé primaire ou l'indexage sans doublon, cela marche, les enregistrements même avec apostrophes sont recherchés. Le problème c'est que j'ai besoin d'indexer ce champ pour éviter les doublons!
Comment faire?
Merci d'avance pour votre aide <IMG SRC="/images/smiles/teeth_smile46.gif">