por que no pruebas con esto:
Código:
dim sql
dim rs
dim conexion
set conexion = Server.CreateObject("ADODB.Connection")
sql = "Select * from Usuarios Where Usuarios.usuario='"&usu&"' and Usuarios.Clave='"&clave&"'"
-------------------
Set rs=conexion(sql)
ó
el conector
rs.open sql,cnn,1,2
quizas algo te funcione...suerte