open a connection to db4. objconn4
open a connection to db1. objconn
execute select query on objconn
execute insert query on objconn4
close connection to objconn
open connection to next db. objconn. repeat for all
with this code you can change the sqldb var to easily change between dbs
Code:
dim sqlserver, sqluser, sqlpwd, sqldb
dim sconn, srs
set sconn = CreateObject("ADODB.Connection") 'prep connection'
set srs = CreateObject("ADODB.Recordset") ' prep recordset'
sconn.open "PROVIDER=SQLOLEDB;DATA SOURCE=" & sqlserver & ";UID=" & sqluser &_
";PWD=" & sqlpwd & ";DATABASE=" & sqldb