VectorPlot3D[{-y,x,-1/Sqrt[x^2+y^2]}, {x,-1,1},{y,-1,1},{z,-1,1}]