I have a 3D parametric plot:

a = ((3.14*.0005) (1.887 - 1.792))/((.0001064)*
     Cos[-.7454*Sin[\[Theta]]*Cos[\[Phi]] + .6626*Cos[\[Theta]]]);
b = (1 - Cos[.7454*Sin[\[Theta]]*Cos[\[Phi]] + .6626*
         Cos[\[Theta]]]^2)*(1 - 
      Cos[-.7454*Sin[\[Theta]]*Cos[\[Phi]] + .6626*Cos[\[Theta]]])^2;
c = a*b;
d = (Cos[c])^2;
ParametricPlot3D[Sin[\[Theta]]* Cos[\[Phi]], d, 
 Cos[\[Theta]] , {\[Theta], 0, Pi}, {\[Phi], 0, 2*Pi}]

When I tell Mathematica to plot it, I get this message:

ParametricPlot3D::nonopt: Options expected (instead of {\[Phi],0,2 \[Pi]}) beyond position 3 in ParametricPlot3D[Sin[\[Theta]] Cos[\[Phi]],d,Cos[\[Theta]],{\[Theta],0,\[Pi]},{\[Phi],0,2 \[Pi]}]. An option must be a rule or a list of rules. >>

Does anybody know what that means, and how can I fix it to make the plot?

Thank you in advance.