Por que no me actuliza el UPDATE???????

[luisgls]

<%
Option Explicit
Dim sql, sql2, rsUsers
%>
<!--#include file="conn.asp"-->
<%
sql = "SELECT * FROM users WHERE username = 'uno'"
Set rsUsers = Server.CreateObject("ADODB.Recordset")
rsUsers.Open sql, conn, 3, 3

sql2 = "UPDATE users SET opcion = 7 WHERE username = 'uno' AND opcion = 1"

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