Window 10? Access 15 (office 365)
Хочу создать ярлык с которого в режиме runtime буду запускать базу

Private Sub cmd_Ok_Click()
    
    PathdMSAccess = Me.txt_MSAccess 'C:\Program Files\Microsoft Office 15\root\office15\msaccess.exe
    PathdBase = Me.txt_dBase        'C:\dBase\Client\db_ZakazClientServer.accdb
    PathdShortcut = Me.txt_Shortcut 'C:\Users\Nik\Desktop\
    
    Set Sh = CreateObject("WScript.Shell")
    Set link = Sh.CreateShortcut("" & PathdShortcut & "Заказы.lnk")
    link.TargetPath = """" & PathdMSAccess & """ """ & PathdBase & """/runtime"
    link.Save
    
End Sub

ругается на строку link.TargetPath
Недопустимый вызов или аргумент процедуры (ошибка 5)
что не так не пойму никак.

http://www.sql.ru/forum/1186161/chto-ya-delau-ne-tak