Salut,
 
le seul moyen de faire ça proprement, c'est de d'abord passer ta string par une petite fonction qui permet de remplacer les ' par des ''
Et comme je suis généreux 
, voilà le code de cette fonction:
Code :
 - Public Function FormatSQL(strValue As String) As String
 -   FormatSQL = Replace(strValue, "'", "''" )
 - End Function
 
  | 
 
Donc ensuite ton code devient:
Code :
 - partie_where = partie_where & " nom_employeur = " & "'" & FormatSQL(Combo_nom_employeur.Text) & "'"
 
  | 
 
Voilà ça devrait fonctionner