侠客风云传 阿成:用ASP实现数据库转换有点问题请高手指点

<%
dim conn,conn1,connstr,connstr1 ,rs

set conn=server.createobject("adodb.Connection")
set rs=server.createobject("adodb.recordset") '这里要初始化rs对象
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb")
conn.Open connstr '连接第一个数据库
set conn1=server.createobject("adodb.Connection")
connstr1="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db2.mdb" )
conn1.Open connstr1 '连接第二个数据库
strsql="select * from xs7386"
set rs=conn.execute(strsql) '从第一个数据库的USER表中搜索
do while not rs.eof
strsql1="insert into text(name,pwd)values('"&rs("xm")&"','"&rs("fy")&"')"
conn1.execute(strsql1) '注意这里是conn1,不是conn
rs.movenext
loop
rs.close
set rs=nothing
%>
把DB1中的表xs7386中的xm与fy字段插入到DB2中的text表的NAME与PWD
运行的时候出点毛病 提示INESERT语句有错误 错误是conn1.execute(strsql1）
我刚学ASP有些事情不明白请大家指点下 调试通过后追加分