Søges : Søgescript

Hej,

Jeg bruger følgende kode til at søge min database. Problemer er bare, at man ikke kan søge på flere ord - f.eks "is*bil" (så man f.eks fik resultatet "ismandsbil" med)

Kan det nemt redigeres - eller kan i lede mig mod et andet script?

<%
strKeyword = Trim(Request.Form("Keyword"))

If Len(strKeyword) = 0 Then
    Response.Clear
    Response.Redirect("search.htm")
Else
   
    strKeyword = Replace(strKeyword,"'","''")
End If

strSQL = "SELECT ID, code1, Supplier, VendorsCode, Description FROM list1 WHERE"
strSQL = strSQL & " (code1 LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Supplier LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Vendorscode LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Description LIKE '%" & strKeyword & "%')"


strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../database/codecs.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then%>
   
    Resultater her
   
    <% Do While Not rs.EOF%>
       
        <%
        rs.MoveNext
    Loop
   
Else
   
    Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If


myConn.Close
Set myConn = Nothing
%>