Probleme SQL et ACCESS urgent (Entreprise)

Lorsque je programme en VBA sous ACCESS une fonction du type

Public function GetCodeProduit(Des as string) as string

Dim DB as Database
Dim RS as Recordset

set DB = CurrentDb
set RS = DB.OpenRecordSet("SELECT * FROM Table WHERE Condition = 'COND'",dbopendynaset)
if RS.RecordCount<>0 then
GetCodeProduit = Nz(RS.Fields("CodeProduit").value,"")
Else
GetCodeProduit = ""
Endif
RS.Close
DB.Close

End Function

Mon problème est le suivant :
Si dans la table, il y a une désignation avec un apostrophe ( ' ), j'obtient une erreur.
Merci d'avance pour votre coup de main.