Сортировка методом SELECT - VB

Формулировка задачи:

Добрый день! есть база, подключенная через adodc и datagrid отображает ее. Необходимо сделать сортровку по полю FPr (фирма производитель). Фирма производитель выбирается из combobox на главной форме, и datagrid оставляет только те записи, у которых фирма производитель = значению combobox Код:

If Main.TabStrip1.Tabs.Item(1).Selected Then
main.adodctv.RecordSource = SELECT TableTV.[No_Zap], TableTV.[Naim], TableTV.[Category], TableTV.[Kol_vo], TableTV.[Cena], TableTV.[Prim], TableTV.[FPr], TableTV.[Summa] FROM TableTV WHERE TableTV.[FPr] = main.ComboTV.Text
Main.AdodcTV.Refresh
Main.DataGridTV.Refresh
End if

ругается на SELECT. В чем ошибка?

Решение задачи: «Сортировка методом SELECT»

textual
                            Листинг программы 
                        

                            Private Sub ComboTV_Change()
    If ComboTV.Text = "" Then
            AdodcTV.RecordSource = "SELECT * FROM TableTV"
            AdodcTV.Refresh
    End If
End Sub
                        