Yo lo hago de la siguiente manera:
Como a mi no me interesa bloquear al usuario que pueda introducir apóstrofes en las bases de datos, lo que hago es modificarle para que pueda introducirlo sin complicaciones. Esto se logra escribiendo dos apóstrofes juntos:
Código:
'Aquí introducimos los apóstrofes y de forma normal tronaría al insertarlo en una BD
Cadena = "BLA BLA BLA 'BLA' BLA"
'Aquí modificamos para que el apóstrofe encontrado no haga tronar la instrucción SQL.
Cadena = Replace(Cadena, "'", "''")
'(En la cadena busca ' y reemplázalo por '')
En caso de querer evitar que se introduzcan apóstrofes, pues la instrucción quedaría:
Código:
'Aquí introducimos los apóstrofes y de forma normal tronaría al insertarlo en una BD
Cadena = "BLA BLA BLA 'BLA' BLA"
'Aquí modificamos para que el apóstrofe encontrado no haga tronar la instrucción SQL.
Cadena = Replace(Cadena, "'", "")
'(En la cadena busca ' y reemplázalo por nada)
Espero se haya entendido.
Saludos