Søge funktion

Hmmm har dette stykke kode:
  <%
set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\")

    strSearch = \"Select * From codes Where beskrivelse Like \'\" & Request.form(\"keyword\") & \"\'\"
    set rs = myConn.execute(strSearch)
   
    do while not rs.eof %>
    <tr>
      <td width=\"60\" height=\"1\"><%=rs(\"type\")%></td>
      <td width=\"231\" height=\"1\"><%=rs(\"titel\")%></td>
      <td width=\"18\" height=\"1\"><img border=\"0\" src=\"img/question_mark.jpg\" alt=\"<%=Rs(\"beskrivelse\")%>\"></td>
    </tr>
<%
    rs.movenext
    loop

set myConn = nothing
set rs = nothing
%>
Kan ikke helt få det til og virke, hvis jeg ændrer \"Select * From codes Where beskrivelse Like
til \"Select * From codes Where type Like

Hvad skal jeg gøre for at den taget de poster hvor der bare er noget af form værdien ?