Shortcut error in Access 2000 works in 2003.

[Bosch]

Hello..

I got the following code from this forum to create shortcut on the desktop..
==================
Set objShell = New WSHShell
Set objShortcut = objShell.CreateShortcut(objShell.SpecialFolders("AllUsersDesktop") & "\" & sShortcut)
objShortcut.TargetPath = sDB
objShortcut.WindowStyle = "3"

objShortcut.SAVE
=================
I have Access 2003..but file format is 2000 because others have access 2000.
This code works great on my machine..but getting error on access 2000 machine..It does not recognize "New WSHShell" in the above code.

-------------------error message
Compile Error:
User-defined type not defined
-------------------

Any references needs to be added?

Please help...Thanks..

 

[Bosch]

Any help?

Anyone experienced this problem? I have added reference to "Windows Script Host Object Model" but still problem exists..

Thanks