Tagwall kode fejler efter opsplittelse

Jeg har denne kode..
Den virker.. Næsten.. og den har virket..
jeg har delt designet op i 3 filer.. Før en
nu har jeg fået dette prob.

ADODB.Recordset error '800a0bb9'

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

/mycsclan/tagwall.asp, line 75



<!-- #include file='topdesign.asp' -->
<!-- #include file='menu.asp' -->
<%
response.buffer = true
if Request.QueryString("mode")="" then %><div align="center"><center>


<table border="0" cellpadding="0" cellspacing="0" width="90%">
    <tr>
        <td width="100%">
          <p align="center"><font face="Arial" size="2"><a href="tagwall.asp?page=tagwall&mode=add">Add Tag</a><font
        size="1" face="Arial Black"><br><br>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db/tagwall.mdb")
  strSQL = "Select * From Tagwall"
  set rs = Conn.execute(strSQL)
if rs.EOF then
  Response.write "<font face=""Arial"" size=""2""><i>Theres no tags</i></font>"
else
  Do Until rs.EOF%>

<table border="0" cellpadding="0" cellspacing="0" width="90%">
    <tr>
        <td width="100%" align="center" bgcolor="#333333"><font face="Arial" size="2" color="white">
        <font size="3" face="arial"><%=RS("forfatter")%>:</font></td></tr><tr><td><font size="3" face="arial"><center><%=RS("tekst")%></td>
    </tr>
</table>
<p>
<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%></p>

  <p><% elseif Request.QueryString("mode")="add" then %></p>

      <font face="Arial Black" >Tagwall</font></h1>

    <form action="tagwall.asp?page=tagwall&mode=save" method="POST">
    <div align="center"><center><table border="0" cellpadding="2"
    cellspacing="0" width="50%">
        <tr>
            <td align="right" width="20%"><font face="Arial" size="2">Name:</font></td>
            <td colspan="2" width="80%"><font size="2"
            face="Arial"><input type="text" size="20"
            name="Forfatter"></font></td>
        </tr>

        <tr>
            <td align="right" valign="top" width="20%"><font face="Arial" size="2">Text:</font></td>
            <td valign="top" width="10%"><font size="2"
            face="Arial"><textarea name="Tekst" rows="4"
            cols="40"></textarea></font></td>
            <td valign="top" width="90%"><font size="2"
            face="Arial"></font></td>
        </tr>
    </table>
    </center></div><p align="center"><input type="submit"
    name="B1" value="Add"></p>
</form>

<p><% elseif Request.QueryString("mode")="save" then %> <%
response.buffer = true



Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/tagwall.mdb") & ";UID=admin;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From Tagwall"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs("Forfatter") = Request.form("Forfatter")
      rs("Tekst") = Request.form("Tekst")
    rs("Dato") = date()
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
response.redirect "tagwall.asp?page=tagwall"
%><%end if%></p>
<!-- #include file='bunddesign.asp' -->


hva er der galt ???