Thanks Doc_Man That would be fine as the header isn't needed. But having some difficulty getting it to work, although no errors are reported, it just stays the same width.
DoCmd.OpenForm "frmMain", acFormDS, , WhereClause
With Forms![frmMain]
.OrderBy = "[MyID], [iCost]"...