Consulta A Apellidos Con Quotes(')

[seudoCodigo]

Hola, estoy creando un aplicacion en Visual Basic 6.0 que hace consultas a una Base de datos Access. Uno de los módulos realiza una búsqueda por apellido. El problema es que los apellidos son en ingles y algunos utilizan el simbolo ( ' ) , por ejemplo: O'neal.

Esto ocasiona un error al realizar la consulta. Mi código es este:
Dim Busqueda as String
Busqueda=trim(txtBusqueda.text)
sql= "SELECT * " & _
"FROM Players " & _
"WHERE lastname LIKE '" & Busqueda & "' " & _
"ORDER BY firstname DESC"

Si digitan el el textbox Jordan:

SELECT *
FROM Players
WHERE lastname LIKE 'Jordan'
ORDER BY firstname DESC

Pero si el usuario digita en el text box O'neal, se veria de esta:

SELECT *
FROM Players
WHERE lastname LIKE 'O'neal'
ORDER BY firstname DESC

¿Cómo puedo evitar ese error sin tener que eliminar el el caracter( ' ) del apellido? Gracias anticipadas compañeros.

[Teri]

Cambia la forma de hacer la SELECT

sql= "SELECT * " & _
"FROM Players " & _
"WHERE lastname LIKE " & Chr(34) & Busqueda & Chr(34) & " " & _
"ORDER BY firstname DESC"

Así evitas el problema de la comilla simple, en SQL Server, lo podrías hacer reemplazando antes un comilla simple por dos comillas simples, pero no sé si eso mismo funciona en Access, nunca lo he probado

sql= "SELECT * " & _
"FROM Players " & _
"WHERE lastname LIKE '" & Busqueda & "' " & _
"ORDER BY firstname DESC"

sql = Replace(sql,"'", "''")

Un saludo

[seudoCodigo]

Teri muchas gracias por tu ayuda, todo funciono de maravilla con la primera solución que me diste. La segunda, pues seguire intentando y buscando mas info a ver si se puede en Acces o si hay otra forma.