I have done this many times and havent used anything more complicated than:

OLE1.CreateLink App.Path & "\" & rs(1) & ".tif"

Hope this works