ReplaceAll[D[Zeta[x], x], {x -> -6+2i}]