ingen kommandoobjekt???

Hvorfor kommer den fejlmeddelse?
Når jeg skriver strSQL ud som string så kommer den som den skal, men conn.Execute(strSQL) kan ikke finde den.

<select name="modellist" class="cellkantred">
<option selected>Välj modell</option>
<%
set conn = server.CreateObject("ADODB.CONNECTION")
DSN = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Inetpub\wwwroot\db\eldAdmin.mdb"
conn.Open DSN
Dim Cat,modell
Cat=request.form("cat")

%>
<input type="hidden" name="kategori" value='<%=Cat%>'>
<%
if Cat="flamdekorationer" or Cat="gaseldadeBrasor" then
    modell="model"
    strSQL = "SELECT "&modell&" FROM "&Cat&""
end if
if Cat="gaseldadeOppnaSpisar" then
    modell="namn"
    strSQL = "SELECT "&modell&" FROM "&Cat&""
end if
if Cat="utrustning" then
    modell="produkt"
    strSQL = "SELECT "&modell&" FROM "&Cat&""
end if
' SQL sætning eksekveres
'response.write strSQL
set RS = conn.execute(strSQL)
do while not rs.EOF
%>
<option value='<%=rs("&modell&")%>'><%=rs("&modell&")%></option>
<%
rs.moveNext
loop
conn.close
%>
</select>