Copiar muchos campos de una Db a uno solo de otra DB

[u_goldman]

Pues algo como un recordset, un acumulador y un insert te podría ayudar.

Código:

qry = "SELECT ...."
Set rs = ObjConn.Execute(qry)

temp = ""
while not rs.eof
  temp = temp & rs("campo")
  rs.MoveNext
wend

qry = "INSERT INTO tabla(campo) VALUES('"&temp&"'); "
ObjConn.Execute(qry)

ObjConn.Close
Set ObjConn = Nothing
Set rs = Nothing

Saludos.