får ett fel när jag gör så här...

Körningsfel i Microsoft VBScript fel '800a01a8'
Objekt krävs.

vad är fel????
här är koden

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("stat.mdb")
SQL = "SELECT * FROM stat ORDER BY ID "
Set RecSet = Connect.Execute(SQL)
Set RecSet2 = Connect.Execute(SQL)
%>

<%
total = 0
DO UNTIL Recset2.EOF
total = Int(total) + Int(RecSet2("klick"))
Recset2.MOVENEXT
LOOP
RecSet.Close
Set RecSet = Nothing
%>

</b></font></p>
<table border="0" cellspacing="0" cellpadding="0" width="278" height="10">
<tr>
<td width="93"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Namn
</font></td>
<td width="141"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Senast
besökt </font></td>
<td width="44">
<div align="right"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Klickat
</font></div>
</td>
</tr>
<p>
</table>
<table border="0" cellspacing="0" cellpadding="0" width="276" height="10">
<%
DO UNTIL Recset.EOF
klick = Int(RecSet("klick"))
klick2 = Round((klick/total)*100)

nummer = nummer + 1
If nummer Mod 2 = 0 then
color = ""
Else
color = "#999933"
End If
%>
<tr>
<td bgcolor="<%=color%>" width="99"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><a href="default.asp?vidare=intern&ID=<%=Recset("ID")%>"><%=Recset("namn")%></a></font></td>
<td bgcolor="<%=color%>" width="167"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%=Recset("senaste")%>
</font></td>
<td bgcolor="<%=color%>" width="34">
<div align="right"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">
<b><%=klick2%>% </b> </font></div>
</td>
</tr>
<%
Recset.MOVENEXT
LOOP
%>