kan någon hitta problemet ?

Denna koden skriver den ut :
ADODB.Recordset error '800a0bb9'

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

/trmkart/andra3.asp, line 11

Och koden ser ut så här :

<html><title>Roger</title>
<body text="#000000" link="#000000" vlink="#000000" alink="#FF0000" bgcolor="#21FA66">
<b>Redigera bland annonserna !</b>
<hr noshade size="1">

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

Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM klader ORDER BY Datum"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>

Följande annonser finns att redigera.\<p\>

\<ul\>

<% Do Until RecSet.EOF %>

\<li\>
\<% =RecSet("Datum") %\>&nbsp;\<b\>
\<% =RecSet("Namn") %\>\</b\>\<br\>
   	\<% =RecSet("Tele") %\>\<br\>
   	\<% =RecSet("Mobil") %\>\<br\>
   	\<% =RecSet("Fax") %\>\<br\>
   	\<% =RecSet("Epost") %\>\<br\>
   	\<% =RecSet("Annons") %\>\<br\>
	 \<a href="redigera9.asp?adressID=\<% =RecSet("ID") %\>"\>Redigera denna annonsen\</a\>
	 \<hr noshade size="1" width="250" align="left"\>

<% RecSet.MoveNext
Loop
RecSet.Close %>
</ul>
<br>
<br>
<br>
Köpes<br>
<hr noshade size="1">

<% Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\trmkart\db\annons.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM kladerk ORDER BY Datum"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>

Följande annonser finns att redigera.\<p\>

\<ul\>

<% Do Until RecSet.EOF %>

\<li\>
\<% =RecSet("Datum") %\>&nbsp;\<b\>
\<% =RecSet("Namn") %\>\</b\>\<br\>
   	\<% =RecSet("Tele") %\>\<br\>
   	\<% =RecSet("Mobil") %\>\<br\>
   	\<% =RecSet("Fax") %\>\<br\>
   	\<% =RecSet("Epost") %\>\<br\>
   	\<% =RecSet("Annons") %\>\<br\>
	 \<a href="redigera11.asp?adressID=\<% =RecSet("ID") %\>"\>Redigera denna annonsen\</a\>
	 \<hr noshade size="1" width="250" align="left"\>

<% RecSet.MoveNext
Loop
RecSet.Close %>
</ul>
</body>
</html>