Hallo,
Danke an alle fleissigen "Antworter".
Werde wohl ein VBA einbauen um den DSN zu ändern:
Worksheets(1).QueryTables(1) _
.Connection:="ODBC;DSN=neuerDSNdata;UID=Username;P WD=geheim;"

Gruss Holger