Visual Basic - Expertos: Uso de Ampersand y Apostrofe

Tengo una aplicación en VB6 usando una base de datos de Access y cada vez que en un campo de texto se agrega algo con ampersand o apostrofe el programa manda un error. Ejemplo: AT&T ó PLC's

Actulmente lo manejo con una secuencia de error ON ERROR, pero supongo que ha de haber otra opción. Se que esos caractéres se utilizan como comandos dentro del lenguaje, pero debe de haber una manera de que no afecten sin tanto error.

GRACIAS por tu ayuda.

En principio no debería de producirse el error, salvo que utilices esa cadena dentro de una consulta SQL. Si ese es el caso, deberías de aislar la cadena, con respecto al resto de la sentencia SQL mediante comillas (chr(34)).
ejemplo:
"SELECT * FROM MiTabla WHERE MiValor=" + chr(34) + LaCadena+ chr(34)

Digo, yo.

En realidad no es que yo lo indique. El problema surge cuando llamo un campo donde exista un apostrofe Ejemplo

Data1.recordset.addnew
Data1.recordset("Campo") = "Muestra's"
Data 1.recordset.update

Si hago un While - Wend, cuendo encuentre el campo con el texto Muestra´s que está guardado así en mi base de datos, entonces mandará el error.

¿Que opinas?

Gracias por tu ayuda.

Usa esta función para tales problemas:

Public Function TextoenSQL(ByVal sValue As String) _
As String
Dim sTxt As String
sTxt = Replace(sValue, Chr(39), "''")
sTxt = "'" & sTxt & "'"
TextoenSQL = sTxt
End Function

Y lo llamas en tus consultas asi:

"Select * from tabla where rtrim(tabla.campo)=" & CadenaenSQL(text1.text)