I know this is an old post, but I thought I'd post the working code in case anyone else needs it :)
Note: Make sure to include the following VBA Reference under Tools->References...
Crystal Reports ActiveX Designer Run Time Library 11.5
(or simular)
Function crystalLink4()
Dim appl As...