dim objrs
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
set objrs=server.createobject("ADODB.RecordSet")
rs.open "SELECT * FROM 用户  where 姓名='"&sjjh_name&"'",conn
objrs.open "SELECT * FROM user  where 姓名='"&sjjh_name&"'",conn,1,1
conn.open Application("sjjh_usermdb")

  if  objrs.eof or objrs.eof then
  objrs.addnew
   Dim ts, sql
   for i=1 to rs.fields.count-1
     objrs(objrs.fields(i).name)=rs.fields(i).value
    next
   objrs.Update
   end if
   objrs.close
   rs.close
%>
各位大哥，帮老弟看一下，都想了好多时日了，想把用户里的一条记录复制到USER里做备份，您给看看上面的方法能不能实现？（用户表比USER表多一个自动ID，其它表字段类型个数一样，因为字段超多，有50个！请哥哥姐姐们给指正，感谢）
错误类型：

-------------------
ADODB.Recordset (0x800A0E7D)
连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。
/jhmp/MONEY99.ASP, 第 15 行