เรียงลำดับชื่อใน combobox vb.net ที่ดึงข้อมูลมาจาก database

Private Sub cbYear_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbYear.SelectedIndexChanged


        cbYear.ResetText()
        cbMS.ResetText()
        '---------------------------------------------------------
        Dim TD3 As New ConnectDb
        TD3.OpenConn()
        Dim dty As New DataTable
        dty = TD3.ReadData("select * from Model where Data = '" & cbData.SelectedValue.ToString & "' and Series = '" & cbSeries.SelectedValue.ToString & "' and Year = '" & cbYear.SelectedValue.ToString & "'")
        TD3.CloseConn()
        cbMS.DataSource = dty
        'cbMS.DisplayMember = "Model"
        'cbMS.ValueMember = "Year"
        cbMS.DisplayMember = "Model"
        cbMS.ValueMember = "ModelSerial"


    End Sub