var MyShortcut = WSHShell.CreateShortcut(WorkFolderMain + 
'\\'+rs.Fields("GroupName").Value+'\\'+rs2.Fields("Description").Value+'.lnk');
var FilePath=rs2.Fields("Path").Value+" "+rs2.Fields("StartupParam").Value;
MyShortcut.TargetPath = FilePath;
MyShortcut.WindowStyle = rs2.Fields("SW_Param").Value;
MyShortcut.IconLocation = rs2.Fields("Path").Value, "0";
MyShortcut.Save();
где rs2 - рекордсет, поле "Path" - путь к файлу, "StartupParam" - ключи