FEJL !!!!

Når jeg kører dette script:

<%

strSQL = "Select kategori1, kategori2, kategori3, kategori4, kategori5 From Tabel1 Where = "
strSQL = strSQL & " (kategori1 LIKE '%" & Request.Form("kategori") & "%')"
strSQL = strSQL & " OR (kategori2 LIKE '%" & Request.Form("kategori") & "%')"
strSQL = strSQL & " OR (kategori3 LIKE '%" & Request.Form("kategori") & "%')"
strSQL = strSQL & " OR (kategori4 LIKE '%" & Request.Form("kategori") & "%')"
strSQL = strSQL & " OR (kategori5 LIKE '%" & Request.Form("kategori") & "%')"

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db1.mdb")
Conn.Open DSN

Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    Response.Write "<p>Søgeresultat</p>"
    Response.Write "<table border=1>"
    Response.Write "<tr><th>kategori1</th><th>kategori2</th><th>kategori3</th><th>kategori4</th><th>kategori5</th></tr>"
    Do While Not rs.EOF
        Response.Write "<tr><td>" & rs("kategori1") & "</td>"
        Response.Write "<td>" & rs("kategori2") & "</td>"
        Response.Write "<td>" & rs("kategori3") & "</td>"
        Response.Write "<td>" & rs("kategori4") & "</td>"
        Response.Write "<td>" & rs("kategori5") & "</td></tr>"
        rs.MoveNext
    Loop
    Response.Write "</table>"
Else
    Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If

Conn.Close
Set Conn = Nothing
%>

får jeg følgende fejl:

Der opstod en Microsoft VBScript-kørselsfejl (0x800A01FB)
Der er opstået en undtagelse: 'Form'
/site_2/soegtest2.asp, line 10

Hvorfor ??