set shell = CreateObject("WScript.Shell") path = shell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Office\12.0\Access\InstallRoot\Path")