error '80020009' - något har hänt!

Hejsan!

Jag vet inte vad, men något har hänt.
Jag har denna kod på min sida:

<%

Set db = Server.CreateObject("ADODB.Connection") 
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("midgetzinc.mdb")
SQL = "SELECT * FROM IP"
Set rs6 = db.Execute(SQL)

Do until rs6.EOF

If Request.Servervariables("REMOTE_HOST") = rs6("IP") Then
Response.Redirect("ip_banned.html")
End If

rs6.MoveNext
Loop
rs6.close

Set db = Server.CreateObject("ADODB.Connection") 
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("midgetzinc.mdb")
SQL = "SELECT * FROM users WHERE username = '" & Session("username") & "'"
Set rs = db.Execute(SQL)

If rs("status") = "0" Then
Session.Contents.Remove("admin")
End If

If rs("status") = "1" Then
Session("admin") = "1"
End If

If rs("status") = "2" Then
Session("admin") = "2" 
End If

If rs("status") = "3" Then
Session("admin") = "3"
End If
%>

(Ursäkta röran i koden, och ja, den är skitdåligt kodad)

Men vad, mina vänner, VAD är felet?

Jag får detta:

error '80020009' 
Exception occurred. 

/magnusfernstrom88/index.asp, line 23

Utan koden fungerar sidan utmärkt!