Изменение количества и ширины столбцов в поле со списком (ComboBox)

Dim sVal$
    Select Case Me.ComboBoxВыбор.ColumnCount
        Case 1
            sVal = "SELECT TextField01, TextField02, TextField03 " & _
                "FROM [Название Вашей Таблицы] ORDER BY TextField01;"
            Me.ComboBoxВыбор.RowSource = sVal
            Me.ComboBoxВыбор.ColumnCount = 3
            'Изменение ширины столбцов :
            Me.ComboBoxВыбор.ColumnWidths = "1700;2270;1700" ' в твипах (cm * 567) = 3cm;4cm;3cm
        Case 3
            sVal = "SELECT TextField01 FROM [Название Вашей Таблицы] ORDER BY TextField01;"
            Me.ComboBoxВыбор.RowSource = sVal
            Me.ComboBoxВыбор.ColumnCount = 1
            Me.ComboBoxВыбор.ColumnWidths = ""
    End Select