¡
Hola !
La conexión se tendría que abrir así, bajo mi punto de vista:
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DRIVER&LUGAR
Set RS = Server.CreateObject("ADODB.Recordset")
' Sentencia SQL o como la llames
SQL = " SELECT users WHERE username = '"&Username&"' "
' Abrimos así la conexión, Primero Sentencia, Luego Conn
' y definimos cursores.
RS.Open SQL, Conn, 3, 3
Quizá te sirva de algo tambíen este link:
http://www.aspfacil.com/articulos/040401.asp
Saludos.