With ThisForm.Grade .RecordSource = "" Select Field1, Field2, Field3 From MyTable Into Cursor MyCursor .RecordSource = "MyCursor" .Column1.ControlSource = "Field1" .Column1.InputMask = "999,999,999.99" .Column2.ControlSource = "Field2" .Column2.InputMask = "999,999" .Column3.ControlSource = "Field3" .Column3.InputMask = "999,999.99" .Column4.ControlSource = "Round(Field2 * Field3,2)" .Column4.InputMask = "999,999,999.99" EndWithAll fields from MyTable are numeric.