errore di connesione

Ciao a tutti volevo un aiuto su un nuovo mio problema ho dato ora i permessi di scrittura alla cartella contenente i database e con il file sottostante dovrei verificare la presenza di user e pasword per poi atterrare in un area protetta ma mi da errore alla riga 16 e questo e' il messaggio

Microsoft VBScript runtime error '800a01a8'

Object required: 'rs'

/welcome.asp, line 16

ecco qui sotto invece tutto l'intero file qualcuno puo aiutarmi????

<%
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/fpdb/registrazione.mdb")

'Se la sessione login è diversa da uno allora esegue la verifica
if session("login") <> 1 then

'Richiama i valori inseriti nel form di login.asp
username = request("username")
password = request("password")

'Stringa SQL che seleziona l'username e la password dalla tabella del database
Strsql = "select * from User where username = '" & username & "' and password = '" & password & "'"

'Se i dati sono presenti nella tabella, session("login") assume il valore di uno altrimenti viene eseguito il reindirizzamento alla pagina Login.asp
if not 'rs'.eof then
session("login") = 1
else
response.redirect "Login.asp"
end if

rs.close
set rs = nothing
end if
%><%
response.write "Benvenuto nella sezione protetta !"
%>

grazie mille

Grazie per la risposta mi potresti spiegare velocemente come farlo???
Sono nuovo del linguaggio!!!!!
Grazie comunque