Microsoft JET Database Engine (0x80040E21)

Får følgende fejl:

Microsoft JET Database Engine (0x80040E21)
Der kan ikke medtages et felt af typen Memo, OLE eller Hyperlink Object, når du markerer de unikke værdier (boger.productName).
/lkb/wwwroot/bogladen/searchAction.asp, line 132

Her er et udsnit af min kode:

    <%

chkText = Request.form("chkText")
    strText = cstr(Request.form("strText"))
    strText = uCase(strText)
    chkCat = Request.form("chkCat")
    strCat = Request.form("strCat")

    strTextWhere = ""
    strCatWhere = ""

    if chkText = "yes" then
        strTextWhere = " and (uCase(productName) like '%"&strText&"%'"
        strTextWhere = strTextWhere & " or uCase(productDesc) like '%"_
            & strText & "%')"   
    end if

   
    if chkCat = "yes" then
        strCatWhere = " and boger.catalogID = '" &strCat&"'"
    end if

    set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open ConString

    sqlText = "select distinct(boger.productID), "
    sqlText = sqlText & "boger.productName "
    sqlText = sqlText & "from boger "
    sqlText = sqlText & "where boger.productID = "
    sqlText = sqlText & "boger.productID"
    sqlText = sqlText & strTextWhere &  strCatWhere
%>       
            <%
(linie 132):    set rsProd = Conn.Execute(sqlText)
       
        If rsProd.BOF And rsProd.EOF Then
            Response.Write "<font face='Verdana' size='2'><strong>"
            Response.Write "No items found, please narrow your <a href='search.asp'>search.</a></b>"
        end if
   
    while not rsProd.EOF
    %>
      <a href="product.asp?intProdID=<% Response.Write rsProd("productID") %>">
      <%= rsProd("productName") %> </a><br>
      <%       
rsProd.MoveNext
wend   
rsProd.Close
set rsProd = Nothing
   
Conn.Close
set Conn = Nothing
%>