Должно работать для любого запроса у которого неизвестно заранее ни число столбцов ни их название
НО НЕ РАБОТАЕТ!
===================================
Dim qdf As QueryDef

Set qdf = CurrentDb.CreateQueryDef("q", SQL) 'Создать запрос
DoCmd.OpenQuery "q" 'Открыть запрос

Dim ictl As Integer
Dim caption As String

For ictl = 0 To Screen.ActiveDatasheet.Controls.Count - 1
MsgBox Screen.ActiveDatasheet.Controls(ictl).Controls.caption
'Screen.ActiveDatasheet.Controls(caption).ColumnWidth = -2
Next ictl

CurrentDb.QueryDefs.Delete qdf.Name 'Удалить запрос из коллекции QueryDefs

http://www.sql.ru/forum/1073558/programmno-izmenit-shirinu-stolbca-v-zaprose