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

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