ListLinePlot & BSplineCurve

ListLinePlot[Table[{Sin[2t],Cos[7 t]+Cos[t]},
{t,0,2 Pi,Pi/75}],Axes -> False,ImageSize->500]/.
Line[rest_]:>{Arrowheads[Table[.05,{i, 0, 1,.03}]],
Arrow[BSplineCurve@rest]}