Visual Basic - Ayuda con las comillas y apostrofes

Hola a todos:

Tengo un problema que es el siguiente:

tengo la siguiente consulta:

consulta = "select * from factura.where factura.cliente = ' " & DataCombo1.Text & " ' "

Esta consulta funciona bien pero cuando busco un cliente que lleva un apostrofe en su nombre (por ej. LE'TRIMCO) me marca un error. Creo que VB no esta tomando el apostrofe como parte del string.

Que puedo hacer en este caso.
Espero que me puedan ayudar
GRACIAS

Hola

El error no es de VB es de SQL que cuando encuentra un apostrofe lo considera como que se acabo la consulta, para evitar esto debes poner doble apostrofe en el lugar que se encuentre uno.

un ejemplo:

En este ejemplo le paso primero el valor del DataCombo1 a una variable y si encuentra apostrofe lo sustituye por dos utilizando la Function Replace y asi SQL no dara lio.

strText = Replace(DataCombo1.Text ,"'","''")

y aqui continua con tu codigo:
consulta = "select * from factura.where factura.cliente = ' " & strText & " ' "

Saludos

Victor Collado