f[x_,y_,z_]:={4x*z^2,2x*y*z,-6x*(y^3)*z}
In[]:=
VectorPlot3D[{f[x,y,z]},{x,-4,4},{y,-4,4},{z,-4,4}]
Out[]=