Error en ASP

[Cony28]

Dim usuario, contrasena, dBase, RS
If Request.Form("usuario") = "" OR Request.Form("contrasena") = "" then
Response.Redirect "pagina2.asp"
Else
usuario = Trim(Request.Form("usuario"))
contrasena = Trim(Request.Form("contrasena"))
usuario = Replace(usuario,"'","''")
contrasena = Replace(contrasena,"'","''")

Set dBase = Server.CreateObject ("ADODB.Connection")
dBase.Open ("Login")

sql = "SELECT * FROM tabla2 WHERE usuario = '"& usuario &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, dBase

If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("contrasena") = contrasena then
Response.Write "Te logueaste con exito... Bienvenido <B>"& usuario &"</B>"
Else
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If

RS.Close
dBase.Close
Set RS = Nothing
Set dBase = Nothing
End If


No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido en la linea 29, que es esta:

ElseIf RS.Fields("contrasena") = contrasena then

ya verifique los campos de la Base de datos y esta bien¿que tiene?
Si alguien me puede ayudar...Gracias.