ник: час
Наверное - вот тута причина
strSecurity = "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security\VBAWarnings"
Да и тута тоже
strPathToAccess = AccessShell.sysCmd(9) & "MSACCESS.EXE "
надо видимо - добавить
Select Case strAccessVersion
Case " Runtime"