Access - Como crear un acceso directo en el escritorio

Sub CrearAccesoDirectoEnEscritorio()

    Dim objShell As Object

    Dim objDesktopFolder As Object

    Dim objShortcut As Object

    ' Crea una instancia del objeto Shell

    Set objShell = CreateObject("WScript.Shell")

    ' Obtiene la carpeta del escritorio

    Set objDesktopFolder = objShell.SpecialFolders("Desktop")

    ' Crea un objeto para el acceso directo

    Set objShortcut = objShell.CreateShortcut(objDesktopFolder & "\NombreAccesoDirecto.lnk")

    ' Establece las propiedades del acceso directo

    objShortcut.TargetPath = "RutaDelPrograma" ' Ruta del programa que se ejecutará

    objShortcut.Description = "Descripción del acceso directo" ' Descripción del acceso directo

    objShortcut.IconLocation = "RutaDelIcono" ' Ruta del icono del acceso directo

    ' Guarda el acceso directo en el escritorio

    objShortcut.Save

    ' Libera los objetos

    Set objShortcut = Nothing

    Set objDesktopFolder = Nothing

    Set objShell = Nothing

End Sub