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

По материалам : 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