Error al comprobar caracteres exactos

[luisgls]

Hola, intento comprobar que son exactamente iguales username y password con lo que esta
almacenado en la base de datos, utilizando el comando StrComp:

<%sql = "SELECT username FROM users WHERE username = '" & username & "' AND password = '" & password & "'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open sql, conn, 3, 3

If (not rsUser.BOF) and (not rsUser.EOF) and sqlflag <> True then
If StrComp(username, rsUser("username")) = False AND StrComp(password, rsUser("password")) = False then
Session("username") = rsUser("username")
rsUser.close
set rsUser = nothing
conn.close
set conn = nothing
end if
end if

rsUser.close
set rsUser = nothing
conn.close
set conn = nothing%>


Sin embargo, me da el siguiente error:
Tipo de error:
ADODB.Recordset (0x800A0CC1)
No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido.


Gracias por la ayuda