Problem med at få recordset ud på siden..

hejsa, jeg har følgene kode:

<%
const adOpenForwardOnly = 0
const adLockReadOnly = 1
const adCmdtext = 1

'Åben recordset
Dim rs, strSQL
set rs = server.createobject("adodb.recordset")

'nyhederne sorteres så den nyeste står øverst
strSQL = "select * from nyheder order by id desc"
rs.open strsql, cn, adopenforwardonly, adlockreadonly, adcmdtext
'Recordsettet udskrives på siden fra databasen
do until rs.eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr>
        <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
            <tr><td width="40%"><%=rs("overskrift")%></td>
                <td width="60%"><%=rs("bruger")%></td>    </tr>    </table></td></tr>
                    <tr><td height="0"><%=rs("nyhed")%></td></tr></table>

<%   
    rs.movenext
   
loop

%>

---------------------

Når jeg forsøger at få det til at virke får jeg denne fejl tilbage:

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/solid/hjemmeside/home.asp, line 18