Utiliza esta funcion Rudy

Public Function DobleComilla(Valor As Variant) As String
Dim cmpvalor As String
Dim aux As Integer
Dim comilla As String * 1

    If IsNull(Valor) Then
        cmpvalor = ""
    Else
        cmpvalor = Valor
        comilla = Chr$(39)
        aux = InStr(cmpvalor, comilla)
        Do While aux <> 0
            cmpvalor = Left$(cmpvalor, aux) & comilla & Right$(cmpvalor, Len(cmpvalor) - aux)
            aux = InStr(aux + 2, cmpvalor, comilla)
        Loop
    End If
    DobleComilla = cmpvalor
End Function


Un saludo. Alberto. Y si tienes alguna duda....

    -----Mensaje original-----
    De: Rudy Armando Capatinta Aucca
[mailto:rcapatinta@hotmail.com]
    Enviado el: viernes 28 de mayo de 1999 2:00
    Para: vb-esp@ccc.uba.ar
    Asunto: vb-esp : Consulta SQL

    Hi! Amigos de la Lista

    Tengo un gran problema en hacer una consulta SQL desde Visual Basic hacia
    una tabla en Access usando ODBC.

    Bueno aqui esta:
    Estoy haciendo una consulta de este tipo

    s_SQL = "SELECT * FROM AUTORES WHERE NOMBRE LIKE '" & criterio & "'"

    Lo que pasa es que si paso el valor al criterio como este: Mac'Donalds
    suelta un error y es por que el nombre de esta con apostrofe.

    Hay otra forma de que no ocurra este error.

Muchas Gracias por la respueste