vb中 如何把一个表1复制到其他数据库的表2中，格式相同。

'cn1 和 cn2 以成功连接 数据库1 和 数据库2
Set rs = cn1.Execute("selecr * form 表1") 'rs获得表
cn2.Execute (sql) '使用sql语句如何实现?

cn2.execute("insert into 表2 from rs")

private sub command1_click() dim conn dim mdbfile as string '数据库名，需要手工指定 dim oldtable as string '旧表名 dim newtable as string '新表名 set conn = createobject("adodb.connection") mdbfile = "d:\software\ast541g\ast541g\astro3.mdb" conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=;dbq=" & mdbfile, 1, 3 oldtable = "info" newtable = "info_copy" conn.execute "select * into " & newtable & " from " & oldtable'复制操作 conn.close set conn = nothing end sub '没看清你的要求，补充一下，access 不支持跨数据库的表格复制的sql语句 'sql数据库支持，下面是sql的方法 private sub command1_click() dim conn dim mdbfile as string '目标数据库名，需要手工指定 dim oldtable as string '旧表名 dim newtable as string '新表名 set conn = createobject("adodb.connection") mdbfile = "d:\software\ast541g\ast541g\astro3.mdb" conn.open "driver={sql server};server=sql服务器名称;uid=username;pwd=数据库密码;database=数据库名称" , 1, 3 oldtable = "info" newtable = "info_copy" conn.execute "insert into openrowset('microsoft.jet.oledb.4.0','" & mdbfile & "';'admin';''," & newtable & ") select * from " & oldtable conn.close set conn = nothing end sub