跨数据库更新的问题

[cangnanren]

这里有两个数据库，我现在想更新new.mdb数据库里的数据，其中zxxk.mdb里面表zxxk中的字段bianhao里的内容是和new.mdb里面表softlist中的字段softname里的内容是一样的，但顺序已经被打乱，现在想做到让它一条一条的对照，当softname和biaohao是一样时候，把zxxk.mdb里面表zxxk中的url内容一一对应写入new.mdb里面表softlist中的DownAddress里面，写了以下代码，但运行起来不能如愿，请高手指点啊
<%
dim conn,conn1,connstr,connstr1 ,rs,bianhao,dizhi
set conn=server.createobject("adodb.Connection")
set rs=server.createobject("adodb.recordset")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("zxxk.mdb")
conn.Open connstr '连接第一个数据库
strsql="select * from zxxk order by id"
set rs=conn.execute(strsql) '从第一个数据库的表中搜索
do while not rs.eof
bianhao = Rs("bianhao")
dizhi = Rs("url")
set conn1=server.createobject("adodb.Connection")
connstr1="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("new.mdb" )
conn1.Open connstr1 '连接第二个数据库
set rs1=server.createobject("adodb.recordset")
strsql1="select * from SoftList where SoftName='"&dizhi&"'"
rs1.open strsql1,conn1,1,3

rs1("DownAddress")=dizhi

rs1.Update
rs.movenext
loop
rs.close
set rs=nothing

response.write "数据更新完成"
%>

[cangnanren]

a ?

[cangnanren]

为了解决问题，继续顶上