テーブルの最適幅をVBAで自動的に変更する方法おしえてください

DoCmd.OpenTable "テーブル名"
RunCommand acCmdColumnWidth

じゃできませんでした。