想在数据库中添加数据，为什么实现不了

t1=request("tt")
Sql = "select * from x2 where id="+t1
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open Sql, Conn, 1, 2
t1=rs("x11")
t2=rs("x115")
t3=rs("x16")
rs.delete
rs.Close
Sql= "update x1 set x112=0 where x11='"&t2&"' and x16="+t3
Set rs = conn.Execute(sql)
Set rs=nothing
Set Conn=Nothing
我这样写代码，x2表的数据可以删除，但是 x1 表中的x112字段不能添加0，请问怎么解决