ClearAll["Global`*"]

Needs["VectorFieldPlots`"]

r[s_]:={Sin[s],Cos[s],s};
 Tn[s_]:={((Cos[s])/(Sqrt[2])),-((Sin[s])/(Sqrt[2])),(1/(Sqrt[2]))};
 Nr[s_]:={-Sin[s],-Cos[s],0};
 Bn[s_]:={((Cos[s])/(Sqrt[2])),-((Sin[s])/(Sqrt[2])),-(1/(Sqrt[2]))} ;

Animate[
Grid[
{
{
Column[{
 Labeled[Round[Tn[t],0.1],Style[ "styczny",Red,Bold],Bottom],
 Labeled[Round[Nr[t],0.1],Style[ "normalny",Green,Bold],Bottom],
 Labeled[Round[Bn[t],0.1],Style[ "binormalny",Blue,Bold],Bottom]}, Center],
Show[
ParametricPlot3D[r[s],{s,0,2Pi },PlotStyle->Black],
ListVectorFieldPlot3D[{{r[t],Tn[t]}},VectorHeads->True,ColorFunction->(Red&)],
ListVectorFieldPlot3D[{{r[t],Nr[t]}},VectorHeads->True,ColorFunction->(Green&)],
ListVectorFieldPlot3D[{{r[t],Bn[t]}},VectorHeads->True,ColorFunction->(Blue&)],
ImageSize->{500,700},PlotRange->{{-1.5,1.5},{-1.5,1.5},{-1.5,3Pi}}]
}
},ItemSize->{{10,Automatic},Automatic}],
{{t,0},0,2Pi ,0.1}
]