Hi Kaspi
You could try putting this in your code before the form is opened:
DoCmd.OpenForm "F_DataSheet", acDesign, , , , acHidden
Forms![F_DataSheet]![Your-column-name].ColumnWidth = 500
DoCmd.Save acForm, "F_DataSheet"
DoCmd.Close acForm, "F_DataSheet"...