Well did it work?
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run """" & strLocalFilePath & strLocalFileName & """", 3, False
strRegKey = "HKEY_LOCAL_MACHINE\" & _
"SOFTWARE\Microsoft\Windows\" & _
"CurrentVersion\App Paths\MSACCESS.EXE\Path"
Set objShell = WScript.CreateObject("WScript.Shell")
strMSAccessExePath = objShell.RegRead(strRegKey) & "MSACCESS.EXE"
objShell.Run Chr(34) & strMSAccessExePath & Chr(34) & " " & _
Chr(34) & strLocalFilePath & strLocalFileName & Chr(34), 3, False
strRegKey = "HKEY_LOCAL_MACHINE\" & _
"SOFTWARE\Microsoft\Windows\" & _
"CurrentVersion\App Paths\MSACCESS.EXE\Path"
Set objShell = WScript.CreateObject("WScript.Shell")
With objShell
strMSAccessExePath = .RegRead(strRegKey) & "MSACCESS.EXE"
Set lnkLocal = .CreateShortcut(strLocalFilePath & "\MyShortcut.lnk")
With lnkLocal
.TargetPath = strMSAccessExePath
.Arguments = strLocalFilePath & strLocalFileName
.IconLocation = strNetworkFilePath & "MyCustomIcon.ico"
.WorkingDirectory = strLocalFilePath
.Save
End With
.Run strLocalFilePath & "\MyShortcut.lnk", 3, False
End With
Set lnkLocal = Nothing
Set objShell = Nothing