ник: ludmil
Работает вариант
Dim wShell
Set wShell = CreateObject("WScript.Shell")
WShell.Run("""C:\Program Files\Microsoft Office\OFFICE11\Msaccess.EXE"" \\Server2\base\" & Year(Date) & ".mdb ")
при другом синтаксисе дает ошибку. Может быть кому-нибудь пригодится