A starting point.
curve3 = KnotData["Trefoil", "SpaceCurve"];
basis = Last[FrenetSerretSystem[curve3[t], t]];
{tangent, normal, binormal} = basis;
g = Graphics[{Red, Disk[{0, 0}, .5]}, PlotRangePadding -> .5];
ParametricPlot3D[
curve3[t] + .6 (Cos[u]*normal + Sin[u]*binormal), {u, 0,
2 π}, {t, 0, 2 π}, PlotPoints -> 80, Mesh -> None,
Boxed -> False, Axes -> False, PlotStyle -> Texture[g],
TextureCoordinateScaling -> False,
TextureCoordinateFunction -> Function[{x, y, z, t, u}, {x, y}],
ViewPoint -> {0.2, -0.3, 3.3}]
