Visio Datenbankpfad ohne Datenbankassistent ändern

Hallo,
Ich habe meine Visio-Datei bzw. ein Shape in dieser mit einer Accessdatenbank verknüpft.
Da die Verknüfung nicht mehr funktioniert wenn die Datenbank in einen andern Ordner verschoben wird und ich dann nicht immer mit dem Datenbankassistent neu verknüpfen will, suche ich nach einer Methode wie ich durch ein Makro den aktuellen Pfad der Datenbank aus einer Shapeeigenschaft auslesen kann.
Der neue Pfad soll dann manuell in die Shapeeigenschaft eingetragen werden.
(Visio 2003) (Access 2003)

Danke im voraus.