necesito ordenar un datatable

por favor si alguien me puede dar una mano!!

fijense el siguiente codigo, cuando construyo el combo, resulta que no
respeta el orden que le indico en el dataview, porque puede ser???

gracias!!

walter
Label5.Visible = True

cboChangeLoc.Visible = True

btnAsignar.Visible = True

cboChangeLoc.Items.Clear()

ds_loc2.Clear()

Dim leves As New Levenstein.Lev

Dim id_prov As String

id_prov =
leves.Lev_Provincia(grilla_descartados.Item(grilla_descartados.RowSel, 9))

Dim sql As String = "select distinct a.nombre from localidades_sinonimos a
join localidad x on a.localidad_id = x.localidad_id join partidos b on
x.partido_id = b.partido_id join provincia c on b.provincia_id =
c.provincia_id where c.provincia_id = " & id_prov

Dim da As New SqlDataAdapter(sql, cn_sql)

Try

da.Fill(ds_loc2, "localidades")

For Each dr As DataRow In ds_loc2.Tables("localidades").Rows

Dim drNew As DataRow

drNew = ds_loc2.Tables("tabla_correctos").NewRow

drNew.Item("levs") =
leves.LD(grilla_descartados.Item(grilla_descartados.RowSel, 4),
dr("nombre")).ToString

drNew.Item("Nombre") = dr("nombre")

ds_loc2.Tables("tabla_correctos").Rows.Add(drNew)

Next


Dim dv As DataView = New DataView(ds_loc2.Tables("tabla_correctos"), "",
"levs ASC", DataViewRowState.CurrentRows)



Dim i As Integer = 1

For Each fila As DataRow In ds_loc2.Tables("tabla_correctos").Rows

cboChangeLoc.Items.Add(fila("levs"))

If i >= 10 Then

Exit For

End If

i += 1

Next

Catch ex As Exception

MsgBox(ex.Message)

End Try