copia tabella

[gigibena]

Salve
Vorrei, in un database access, copiare tutti i dati che si trovano nella tabella A nella tabella B in un solo colpo. Sia la tabella A che B hanno i rispettivi campi
Prodotto
Codiceprodotto

Ho provato questo codice che copia solo il primo record
<%
Dim Conn
Dim rs
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("../../mdb-database/farmacia.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM A"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
dim prodotto, codiceprodotto
prodotto=rs("prodotto")
codiceprodotto=rs("codice")

rs.Close
set rs = Nothing
conn.Close
set conn = Nothing

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("../../mdb-database/farmacia.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM B"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

rs.addnew
rs(3)=prodotto
rs(14)=codiceprodotto
rs.update
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>

Come posso fare
Grazie in anticipo
Gigi

[byluciani]

puoi fare tutto con una semplice query