søgefunktion med RegExp

Jeg har fået strikket følgende kode sammen til søgninger,
men ved søgninger på fx. bil kommer den også med BILleder
I forbindelse med et andet ? kom jeg frem til at det må kunne bruges her også ??
http://www.eksperten.dk/spm/278894

min kode:
strTest = (Request.Form("Keyword"))
strKeyword = split(Trim(Request.Form("Keyword")), " ")

       
        Select Case UBound(strKeyword)
       
        Case "0"
            strSQL =  "select * from power where description like '%" & strTest & "%'"

        Case "1"
            strSQL =  "select 1 as myOrder, * from power where description like '%" & strTest & "%' UNION select 2 as myOrder, * from power where description like '%" & strKeyword(0) & "%' and description like '%" & strKeyword(1) & "%'UNION select 3 as myOrder, * from power where description like '%" & strKeyword(0) & "%' order by myOrder"

        Case "2"
            strSQL =  "select 1 as myOrder, * from power where description like '%" & strTest & "%' UNION select 2 as myOrder, * from power where description like '%" & strKeyword(0) & "%' and description like '%" & strKeyword(1) & "%' and description like '%" & strKeyword(2) & "%' order by myOrder" '3 ord i søgningen
        Case Else
            strSQL =  "select * from power where description like '%" & strTest & "%' OR '%" & strKeyword(0) & "%' and description like '%" & strKeyword(1) & "%' and description like '%" & strKeyword(2) & "%' " 'mere end 3 ord i søgningen
        End Select



strConnect = "Data Source=d:\home\home\db\database2.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open strConnect

Set rs = Conn.Execute(strSQL)


If Not (rs.BOF Or rs.EOF) Then

Response.Write "<center>"

Do While Not rs.EOF
Response.Write "<table border=""0"" cellspacing=""0"" width=""760"" cellpadding=""3"" >"
Response.Write "<tr><td width=100% ><FONT FACE=""Verdana, Times New Roman"" SIZE=""2"" >" & "<a href=" & rs("www") & " TARGET=_blank>"& rs("titel") &"</A> - " & Erstat(rs("description"))&"<BR></FONT><FONT FACE=""Verdana, Times New Roman"" SIZE=""1"" ></FONT>"
Response.Write "<HR></td></tr><table>"
intAntallinks =intAntallinks + 1
Response.Flush
rs.MoveNext

Loop