En fejl når man vil logge ind

Når man vil logge ind og skriver det forkerte password så kommer man tilbage til login-siden så man skal men når man skriver det rigtige så kommer denne fejl frem:

ADODB.Recordset (0x800A0CC1)
Elementet kan ikke findes i den samling, der svarer til det anmodede navn eller ordenstal.
/asp/Tagwall/Beskyttet.asp, line 12.

Og asp teksten:
<%
' vi starter med at oprette forbindelse til vores database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tagwall.mdb")
Conn.Open DSN
' så henter vi vores inputs fra brugeren, som vi definerer i variabler og trimmer den
Dim strBrugernavn, strAdgangskode
strBrugernavn = Trim(Replace(Request.Form("Admin")," ' "," " ))
strAdgangskode = Trim(Replace(Request.Form("Pass")," ' "," " ))

' herefter opbygger vi vores SQL-sætning og får vores databaseforbindelse til at udføre den.
SQL = "SELECT * FROM Admin where Admin = '" & strBrugernavn & "' AND Pass = '" & strAdgangskode & "'"
Set rs = Conn.Execute(SQL)

' Hvis brugeren fandtes i databasen
If Not (rs.BOF Or rs.EOF) Then
Session("ID") = rs("ID")
Session("Brugeradgang") = True
Response.redirect "Beskyttet.asp"

Else

' Hvis brugeren ikke fandtes i databasen
Response.redirect "Admin.asp"
End If

' og for god ordens skyld lukker vi lige for databaseorbindelsen
Conn.Close
Set Conn = Nothing
%>