Hvorfor får jeg "error 80020009"

Kan nogen se, hvorfor jeg får en "error 80020009" i mit script herunder

<%
referattype = Request.form("valg")

strSQL = "SELECT filename FROM link WHERE referattype='" & request.form("valg") & "' ORDER by ID desc"
set rs = Conn.Execute(strSQL)
response.write(strSQL)
do
response.write "<a href='Upload/" & rs("filename") & "'>" & rs("filename") & "</a><br><br>"
rs.MoveNext
Loop While Not rs.EOF
   
rs.Close
Set rs = Nothing   
Conn.Close
Set Conn = Nothing

%>