Sub ChangeSource()
' замена источника (сервера) и базы данных для запроса на активном листе

   newSourceName = InputBox("Введите имя ИСТОЧНИКА и нажмите ОК", "Замена имени источника", "server")
   If newSourceName = "" Then Exit Sub
   newDBName = InputBox("Введите имя БАЗЫ ДАННЫХ и нажмите ОК", "Замена имени БД", "database")
   If newDBName = "" Then Exit Sub

      For Each oQueryTable In ActiveSheet.QueryTables
          oConArray = oQueryTable.Connection
          oConType = Mid(oConArray,  1 ,  4 )
          If oConType = "ODBC" Then '  для запроса через ODBC
             newConArray = "ODBC;DRIVER=SQL Server;SERVER=" & newSourceName & ";UID=;APP=Microsoft Office 2003;WSID=;DATABASE=" & newDBName & ";Trusted_Connection=Yes"
          End If
          oQueryTable.Connection = newConArray
          oQueryTable.Refresh BackgroundQuery:=False
      Next
End Sub