ลองค้นหาด้วยคำว่า Shortcut ดูครับ

Function fCreateShortcutOnDesktop(strFullFilePathName As String) _
As Long

Dim WSHShell As Object
Dim WSHShortcut As Object
Dim strDesktopPath As String
Dim strFileName As String

Dim strPath As String
On Error GoTo fCreateShortcutOnDesktop_Err
' Create a Windows Shell Object
Set WSHShell = CreateObject("WScript.Shell") 'New IWshRuntimeLibrary.IWshShell_Class
' Get the file's name and path...
strFileName = Dir(strFullFilePathName)
strPath = Left(strFullFilePathName, _
Len(strFullFilePathName) - Len(strFileName))

' Make sure file exists
If Not Len(strFileName) = 0 Then

' Read desktop path using WshSpecialFolders object
strDesktopPath = WSHShell.SpecialFolders.Item("Desktop")

' Create a shortcut object on the desktop
Set WSHShortcut = WSHShell.CreateShortcut _
(strDesktopPath & "\" & strFileName & ".lnk")

' Set shortcut object properties and save it
With WSHShortcut
.TargetPath = WSHShell. _
ExpandEnvironmentStrings(strFullFilePathName)
.WorkingDirectory = WSHShell. _
ExpandEnvironmentStrings(strPath)
.WindowStyle = 4
.IconLocation = WSHShell.ExpandEnvironmentStrings(SysCmd(acSysCmdAccessDir) _
& "\msaccess.exe ,0") 'I get hung on this line and the msaccess.exe use to be excel.exe
.Save
End With

fCreateShortcutOnDesktop = 1
Else
fCreateShortcutOnDesktop = 0
End If
Continue:
' Tidy Up
Set WSHShell = Nothing
Exit Function

fCreateShortcutOnDesktop_Err:
fCreateShortcutOnDesktop = -1
Resume Continue

End Function
+++++++++++++++++++++++++++++++++
จากโค้ดที่ได้มา ไม่ทราบว่าเวลานำไปใช้ จะต้องทำอย่างไรครับ
ผมใช้ win xp MS Access xp
รบกวนอีกครั้งครับ

ก็เรียกฟังก์ชัน โดยใส่ชื่อไฟล์ mdb ที่ต้องการลงไป พร้อมกับ Path ด้วยครับ

เช่น จะสร้าง Shortcut ให้ไฟล์ปัจจุบันที่เปิดอยู่ ก็ใช้

fCreateShortcutOnDesktop(CurrentDb.Name)

ขึ้นอยู่กับว่าจะเรียกฟังก์ชันนี้ตอนไหน ก็นำไปใช้ได้เลยครับ