yo uso VB6 y la verdad he puteado mucho con estas cosas .. lo que te conviene es hacer una funcion que formatee la cadena antes de armar el sql.
cuidado que hay otros caracteres especiales
aux = Replace(verCadena, """", "*", , , vbTextCompare)
aux = Replace(aux, "'", "*", , , vbTextCompare)
'aux = Replace(aux, "!", "*", , , vbTextCompare)
'aux = Replace(aux, "&", "*", , , vbTextCompare)
'aux = Replace(aux, "%", "*", , , vbTextCompare)
'aux = Replace(aux, "·", "*", , , vbTextCompare)
'aux = Replace(aux, "º", "*", , , vbTextCompare)
aux = Replace(aux, "\", "*", , , vbTextCompare)
Yahoo! Cocina
Recetas prácticas y comida saludable
http://ar.mujer.yahoo.com/cocina/