'Pull the SLX connection string from a global variable - then only need to change the GV once when the server changes
  strConn = DTSGlobalVariables("SLXConnectionString").Value

  Set objConn=CreateObject("ADODB.Connection")
  objConn.open strConn

'Pull the SQL connection string from a global variable - then only need to change the GV once when the server changes
'This is needed to execute SELECT across servers
  strConn2 = DTSGlobalVariables("SQLConnectionString").Value

  Set objConn2=CreateObject("ADODB.Connection")
  objConn2.open strConn2

'We then loop round the resultset and execute an UPDATE command for every occurrence

'First, set the SQL that will retrieve the required resultset

  strSQL2 = "cross database select query here returning OpportunityID and F1"

'Run this SQL using a SQL connection
  set objRS2 = CreateObject("ADODB.Recordset")
  
'Open the recordset and cycle round it, updating as we go
  objRS2.open strSQL2, objConn2, 3					'3 - adOpenStatic - try to avoid recordset locks
  do
    with objRS2
      do while not (.bof or .eof)
        strSQL = "update Opportunity set F1 = '" & .fields("F1").value & "' where OpportunityID = '" &_
                  .fields("OpportunityID").value & "'"
        objConn.execute strSQL
        .MoveNext
      loop
      .close
      .open strSQL2, objConn2, 3					'3 - adOpenStatic - try to avoid recordset locks
    end with
  loop until (objRS2.bof or objRS2.eof)
  objRS2.close
 

'Tidy up
  set objRS2 = nothing
  objConn.close
  set objConn = nothing
  objConn2.close
  set objConn2 = nothing