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
