well i would go on and waffle about what i am going to do but to make it easier for you who can i reverse this code:

 Dim lReturn As Long

'Add to Desktop
lReturn = fCreateShellLink("..\..\Desktop", _
"Village Hall Bookings", "c:\Village_Hall_Bookings\db1.mdb", "")

'Add to Program Menu Group
lReturn = fCreateShellLink("", "Village Hall Bookings", _
"c:\Village_Hall_Bookings\db1.mdb", "")

'Add to Startup Group

lReturn = fCreateShellLink("\Startup", "Village Hall Bookings", _
"c:\Village_Hall_Bookings\db1.mdb", "")


thanks for any help you give