Create 2 different connection objects if you need to access 2 different SQL 
servers.

dim conn1 as adodb.connection
dim conn2 as adodb.connection

then take and use these connections to access the dns or dsn-less 
connections for querying the recordsets.

I hope this helps with your question about using 2 connections at the same 
time in an application.