Dim wShell, oApp, Escritorio, Enlace
Dim Argumentos, AccesoDirecto
Dim Cadena

    Set wShell = CreateObject("WScript.Shell")
    Set oApp = CreateObject("Access.Application")

    Escritorio = wShell.SpecialFolders("Desktop")
    cadena = chr(34) & "C:\wintrans\wintrans.mde" & chr(34) & " /WRKGRP"_
    & " " & chr(34) & "C:\wintrans\system.mdw"_
    & chr(34) & " " & "/user usuario /pwd"

    Argumentos = Cadena
    Enlace = oApp.SysCmd(9) & "MSACCESS.EXE" & " "
    Set AccesoDirecto = wShell.CreateShortcut(Escritorio & "\Wintrans" &
".lnk")
    AccesoDirecto.TargetPath = Enlace
    AccesoDirecto.Arguments = Argumentos
    AccesoDirecto.WorkingDirectory = "C:\Wintrans\"
    AccesoDirecto.IconLocation = "C:\wintrans\truck.ico"
    AccesoDirecto.Save

    Set AccesoDirecto = Nothing
    Set wShell = Nothing
    Set oApp = Nothing