strQuery = "SELECT * FROM Data where Clave= '" & request("Clave") & "'" Set objRS = Conn.Execute(strQuery)