Buscar palabras por separado.

[lexus]

saludos,

e implementado lo que me diste urjose, pero no me funciona, lo tengo asi..


basedatos = "mp.mdb"
Set con = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
con ="DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=;"
con = con & "DBQ=" & server.mappath(basedatos)


nompagina = Request.ServerVariables("SCRIPT_NAME")

If request.form("buscar") <> "" Then
buscar =Split(Replace(Request.Form("buscar"),"'","''"))
End IF
If request.querystring("buscar") <> "" Then
buscar =Split(Replace(Request.querystring("buscar"),"'"," ''"))
End If


SQL="SELECT * FROM musica WHERE INSTR(claves,'"&buscar(0)&"')"
For i=1 to Ubound(buscar)
SQL=SQL&" OR INSTR(claves,'"&buscar(I)&"')"
Next
SET RS=con.Execute(SQL)
rs.PageSize = RegPorPagina
rs.Open sql, con, 3, 3


como podria arreglarlo?

gracias,