Dim cnn As ADODB.Connection
  Dim rst As ADODB.Recordset
  Dim strSource As String
  Dim col As Integer

  Set cnn = New ADODB.Connection

  cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=db;Data Source=SERVER1"
  cnn.Open

  sqlquery = "select top 20 * From table"
  Set rst = cnn.Execute(sqlquery)

  Range("A1").CopyFromRecordset rst
  
  cnn.Close

  Set rst = Nothing
  Set cnn = Nothing

cnn.ConnectionString = = "Provider=SQLOLEDB.1;Data Source=SERVER2;Initial Catalog=db2;user id=usrn_name;password=my_pass"