Simple VBScript which replaces the database connection of the pivot tables in an Excel workbook

An excel workbook contains pivot tables which use different tables of the same database (SQL Server) as their data source. The workbook is sometimes used on different PCs which each use different databases as the data source for the pivot tables. Tables, fields and content are the same in each database. But the database location, name, ODBC connection, etc. are different. I am looking for a script which let's me input or choose the new data source and updates the pivot tables accordingly. Best would be if I was able to just input the ODBC name of the new database. After the auction I will send the excel workbook that contains the pivot tables which I want to use. The project is completed when I receive the Excel workbook containing the VB script and was able to use the script to update the database connection on different PCs. Currently all databases are SQL Server and functionality with SQL Server is essential. It would be nice if the script would also be able to switch to/from MS Access databases (not a must though). The project should be finished within 3 days after the end of the auction. There are often such occasions when I need a VB script, so future projects are possible.