Public Sub ChangeDataSource()
  Dim dsoServer
  Dim dsoDataBase
  Dim dsoDataSource

  Set dsoServer = CreateObject("DSO.Server")
  SaveToLog Создали объект DSO.Server
  dsoServer.Connect OLAP_SERVER_NAME
  SaveToLog "Подсоединились к серверу " & OLAP_SERVER_NAME
  Set dsoDataBase = dsoServer.MDStores(OLAP_DB_NAME)
  SaveToLog "Подсоединились к базе " & OLAP_DB_NAME
  Set dsoDataSource = dsoDataBase.DataSources(OLAP_DATA_SOURCE_NAME)
  SaveToLog "Подсоединились к DataSource " & OLAP_DATA_SOURCE_NAME
  dsoDataSource.ConnectionString = "Provider=" & ds_PROVIDER & ";" & _
                                   "Data Source=" & ds_DATASOURCE & ";" & _
                                   "User ID=" & ds_USER & ";" & _
                                   "Password=" & ds_PASSWORD & ";"
  dsoDataSource.Update
  SaveToLog "Закомитили обновления"
  dsoServer.CloseServer
  SaveToLog "Отсоединились от сервера"

  Set dsoDataSource = Nothing
  Set dsoDataBase = Nothing
  Set dsoServer = Nothing

End Sub