If conn.State = adStateOpen Then conn.Close
 If conn1.State = adStateOpen Then conn1.Closeconnstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=wj_wjzx;Data Source=办公室1"    这个不是本地服器中的 wj_wjzx数据库
conn.Open (connstring)
connstring1 = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=wc_tjxt;Data Source=20100413-1548" 本地服务器中的数据库
conn1.Open (connstring1)
str0 = "select *from wc_tjxt.dbo.tj_tjdjb where DJRQ= '" & Trim(Text1.Text) & "'and DWBH='" & Trim(Text2.Text) & "' "
str1 = "select *from wj_wjzx.dbo.tj_tjdab"
rs.Open str0, conn1, 1, 3
rs1.Open str1, conn, 1, 3
conn.Execute ("insert into  wj_wjzx.dbo.tj_tjdjb select * from wc_tjxt.dbo.tj_tjdjb where tj_tjdjb.dabh="010")               把wc_tjxt数据库中的表插入到 wj_wjzx,怎么不行,急!!!!!求各位高手给一个答案,非常感谢!!!