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.