A. fld.Optimize = True

B. fld.Properties("Optimize") = True

C. rst.Optimize (fld)

D. fld.Optimize = False