Das Ändern geht übrigens am einfachsten per
xxx.Connection = replace(xxx.connection,"OldDsn","NewDsn")