本意是想修改更新以后在添加到数据库里面，下面是代码：

Dim Conn,objRS,SQL
  
  '初始化数据库连接
  Set Conn = Server.CreateObject("ADODB.Connection")                          
  Conn.ConnectionString ="provider=sqloledb;data source=local;uid=sa;pwd= ;database=****"
              
  '打开数据库连接
  Conn.Open
        
  'SQL语句
  SQL = "SELECT * FROM sj_info Where  user_id=" &User_id

  
  '打开数据集
  Set RS = Server.CreateObject("ADODB.Recordset")
  RS.Open SQL, Conn,1,3

  
 RS.Update Array("sj_name", "sj_tel", "sj_di", "sj_hy", "sj_jf","sj_jj","sj_hd","sj_lx","sj_emali","sj_zp","sj_gg","sj_bh","sj_lb","sj_cd","sj_sy","sj_time"),Array(name, tel, di, hy, jf,jj,hd,lx,email,zp,gg,bh,lb,cd,sy,times)

报了下面的错误：
Description: 在对应所需名称或序数的集合中，未找到项目。

我都是按照着表中的列来填写的啊，数据库也打开了，测试sql语句也是正确的，但是就是在更新的时候报了上述的错误.

谢谢两位版主的帮忙！
搞定了，我是用了hmhz版主的方法，我是觉得hmhz版主的方法直观一点！