Сортировка значений в выпадающем списке

---

у меня есть таблицы базы данных из обращений под названием ConductorsWI, когда я делаю чтение из нее с помощью параметров фильтра по файлу callled "Type" и filed2 под названием "Shape" и помещаю результат на вызываемый "SSize" на combobox3, результаты приходят случайными, и я ищу, чтобы упорядочить их

у меня есть размеры 1.5, 2, 4, 6, 8, 10, 12, .... и т.д. Из базы данных
поместите его в combobox как 10, 12, 6, 3, 4, 25, .... Случайный
и мне нужно рассортировать их от мала до велика

может быть потому что когда я выбрал чтение из базы данных с помощью cariteria это было случайным образом
но мне нужно наконец разобраться с этим снова

Что я уже пробовал:

Dim Cmd As New OleDbCommand 'cmd as command to use
            Cmd.Connection = conn 'open connection to database
            Cmd.CommandText = "select * from ConductorsWI where Type = '" & ComboBox1.SelectedItem & "' and Shape = '" & ComboBox2.SelectedItem & "'"

            conn.Open() 'open connection
            dr = Cmd.ExecuteReader
            While dr.Read

                ComboBox3.Items.Add(dr("SSize").ToString())

            End While
            dr.Close()
            conn.Close()

---

Cmd.CommandText = "select * from ConductorsWI where Type = @Type And Shape = @Shape"
Cmd.Parameters.AddWithValue("@Type", ComboBox1.SelectedItem)
Cmd.Parameters.AddWithValue("@Shape", ComboBox2.SelectedItem)