kan ik finde fejlen, HELP!!!

jeg indsætter lige koden og IE fejlen:

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A000D)
Typer stemmer ikke overens: 'rs'
/skole/fag.asp, line 29

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

strSQL = "Select * From " & Request.Querystring("fag") & " Order by id Desc"
%>
<body bgcolor="#C0C0C0" link="#000080" vlink="#000080" alink="#000080">

<div align="center">
  <center>
  <table border="0" width="570" height="465" bgcolor="#FFFFFF" cellspacing="0">
    <tr>
      <td width="570" height="439">
  </center>
      <table border="0" width="100%" cellspacing="0" height="100%">
        <tr>
          <td width="100%" height="1%">
            <table border="0" width="100%" cellspacing="0">
             
<%
Do
Response.Write "<tr><td width='17%'>" & rs("dato") & "</td>"
Response.Write "<td width='23%'>" & rs("overskrift") & "</td>"
response.write "<td width='60%'>" & replace(rs("notat"),VbCrLf,"<br />") & "</td></tr>"
rs.MoveNext
loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>

linje 29 = lige under, Do