Mejor haz algo como esto:
Código:
consulta1.Open "Select * from TuTabla Where login = '" & request.form("txt_usuario") & "' and [Contraseña] = '" & request.form("txt_password") & "'", objConexion
If Consulta1.EOF Then
Response.Write "Usuario y/o contraseña no existen"
Else
Response.Write "Usuario autorizado"
Por cierto, no deberías tener nombres de campos con Ñ's, pudieras tener problemas.