We solve for when the derivative of CVol[theta] = 0.

Input := 


solMaxtheta = FindRoot[derCVol[theta] == 0,{theta,2.5}]

Output =


{theta -> 2.7759}