Как отсортировать отфильтрованный ListBox

Question

Я создал окно поиска для ListBox в форме. Функция поиска работает как задумано, но я бы хотел, чтобы результаты отображались в порядке возрастания на основе первого столбца. У меня проблемы с пониманием, как это сделать. Мой код:

Private Sub searchTB_Change()

Dim strSource As String, strSearch As String
'code for searching records
    strSearch = Replace(searchTB.Text, "'", "''")
    strSource = "SELECT [ID], [VP_veiklioji], [VP_invented_name], [Pareisk_pav], [Par_gavimo_data], [Finished] " _
        & "FROM TerPar_Oldsys " _
        & "WHERE [ID] LIKE '*" & strSearch & "*' " _
        & "Or [VP_veiklioji] LIKE '*" & strSearch & "*' " _
        & "Or [VP_invented_name] LIKE '*" & strSearch & "*' " _
        & "Or [Pareisk_pav] LIKE '*" & strSearch & "*' " _
        & "Or [Par_gavimo_data] LIKE '*" & strSearch & "*' " _
        & "Or [Finished] LIKE '*" & strSearch & "*' " _
       'up to this part everything works
        'line below do not work (it gets whole code in red in debugger) and I do not know how to fix it
        & "ORDER BY"  "[ID]" ASC," 

    'bottom two lines work too, I have tryed DoCmd.SetOrderBy but do not understand how to make it work either

    Me.oldListBox.ColumnWidths = "1.5 cm; 3 cm; 4 cm; 4 cm; 2 cm; 0.6 cm"
    Me.oldListBox.RowSource = strSource

End Sub

РЕДАКТИРОВАТЬ: На мой взгляд, это не дубликат, так как я нацеливаюсь на совершенно другую архитектуру, которая, оказывается, требует только удаления кавычек, как предложено Gustav.

Answer 1

Удалить кавычки и запятую :

& "ORDER BY [ID] ASC"