CurrentDb.TableDefs("Your Table Name").Fields("Your DateTime FIELD").Properties("Format") = "Short Date"