表的连接问题

我原来有个叫EMAIL的表，里边有EMAIL，COMMENT两个字段，现在又要导入一个WINTIAN的表，里边有EMAIL，COMMENT两个字段，怎么样能把两个表的内容添加到一个表中？完整的写法

---------------------------------------------------------------

把wintian里的数据全部写入email中

 1   
 2set rs=server.createobject("adodb.recordset")   
 3conn="DBQ=" + server.mappath("mydb.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"   
 4Set Rr = Server.CreateObject("ADODB.Recordset")   
 5Set RS = Server.CreateObject("ADODB.Recordset")   
 6sqlr="select * from wintian"   
 7sql="select * from email"   
 8Rr.open sqlr,conn,1,1   
 9RS.open sql,conn,1,1   
10Rs.addnew   
11Rs("EMAIL")=Rr("EMAIL")   
12Rs("COMMENT")=Rr("COMMENT")   
13Rs.update   
14Rs.close

---------------------------------------------------------------

楼上的这样台耗费资源了吧！
sql="insert into emial(email,comment) select emial,comment from wintian"

着这样试试吧