Создание иконки на рабочем столе

По материалам : http://hiprog.com/

Предпологается что иконка для ярлыка лежит в тойже директории что и база и  имеет тоже имя

Dim WSHShell, scut As Object

Dim k As String

Dim ico_lnk As String

k = """"

ico_lnk = Left$(CurrentDb.name, Len(CurrentDb.name) - 3) & "ico"

Set WSHShell = CreateObject("WScript.Shell")

Set scut = WSHShell.CreateShortcut(WSHShell.SpecialFolders("Desktop") & "\Название моего ярлыка.lnk")

scut.Arguments = CurrentDb.name

scut.Description = "Этот ярлык создан для запуска того то"

'scut.HotKey = "CTRL+ALT+SHIFT+X"

scut.IconLocation = WSHShell.ExpandEnvironmentStrings(ico_lnk)

scut.TargetPath = SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE"

scut.WindowStyle = 3

scut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings(CurrentProject.Path)

scut.Save

Set WSHShell = Nothing