Hola MBCIT, bienvenido a FDW, ahora a tu pregunta hay varias formas de hacer lo que quieres, una sería como ya tienes tu recordset, itéralo y por cada registro tomas los campos necesarios y realizas tu insert/update
Código:
while not rs.EOF
strSQL = strSQL & "INSERT INTO tabla(campo1, campo2, campoN) " & _
"VALUES("&rs("campo1")&", "&rs("campo2")&", "&rs("campoN")&");"
rs.moveNext
wend
ObjCon.Execute(strSQL)
Aunque podria ser que haciendo un solo query pudieras resolverlo, pero para eso tendriamos que saber los detalles de tus tablas, la idea es la siguiente:
Código:
INSERT INTO tabla (campo1, campo2, campoN)
SELECT campo1, campo2, campoN FROM tabla2 WHERE condiciones;
Ya nos diras mas cosas
Saludos