добрый день всем знатокам Access
Озадачился вот каким вопросов, который вроде бы и простой, но что-то слишком много движений получается
Есть комбо, в него надо собрать все VBComponents из VBE

Собираю

Dim i As Long
Dim strSource As String

For i = 1 To Application.VBE.ActiveVBProject.VBComponents.Count
     strSource = strSource & Application.VBE.ActiveVBProject.VBComponents.Item(i).Name & ";"
Next i

cmbVBМодули.RowSourceType = "Value List"
cmbVBМодули.RowSource = Left(strSource, Len(strSource) - 1)

цикл собирает компоненты по их item(number), при этом в самом комбике отображаются имена Name, соответственно, не в алфавитном порядке, а в порядке item(number). Хотелось бы сделать, чтобы были в алфавитном порядке.
Вижу сделать так: подвязать под комбик таблицу (или создать временную), заполнить значения в нее, а в комбик выдать Query с таблицы с нужной сортировкой. Мне кажется это несколько мудрено, может есть более простой способ сделать сортировку перед отображением данных в комбике?

Всем заранее спасибо за ценные мысли

https://www.sql.ru/forum/1312643/sortirovka-v-combobox