Сортировка набора данных (datatable)

---

Я читаю данные из CSV-файла и создаю набор данных из этих входных данных.
Каждая добавленная запись имеет инкрементный "идентификатор", начинающийся с 1.
Мне нужно отсортировать набор данных по "ID" по убыванию (то есть в обратном порядке, в котором были прочитаны записи), но я терплю неудачу.

Ниже приводится краткое изложение того, что я пробовал.
Когда я перехожу через него и просматриваю набор данных, он еще не отсортирован.

Может ли кто-нибудь посоветовать, чего мне не хватает?

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

Dim ds As New DataSet
Dim dt As DataTable = New DataTable()
Dim dr As DataRow

Dim IdCol As DataColumn = New DataColumn("ID", Type.GetType("System.Int32"))
Dim DtCol As DataColumn = New DataColumn("Date", Type.GetType("System.String"))
Dim AmCol As DataColumn = New DataColumn("Amount", Type.GetType("System.String"))
Dim BlCol As DataColumn = New DataColumn("Balance", Type.GetType("System.String"))
Dim DeCol As DataColumn = New DataColumn("Description", Type.GetType("System.String"))

dt.Columns.Add(IdCol)
dt.Columns.Add(DtCol)
dt.Columns.Add(AmCol)
dt.Columns.Add(BlCol)
dt.Columns.Add(DeCol)

dr = dt.NewRow()
dr("ID") = 1
dr("Date") = "22/04/2018"
dr("Amount") = "999.99"
dr("Balance") = "0.00"
dr("Description") = "B) Here is the transaction"
dt.Rows.Add(dr)

dr = dt.NewRow()
dr("ID") = 2
dr("Date") = "23/04/2018"
dr("Amount") = "888.89"
dr("Balance") = "1.00"
dr("Description") = "A) Here is the other transaction"
dt.Rows.Add(dr)

dt.DefaultView.Sort = "ID DESC"

ds.Tables.Add(dt)

ds.Tables("Table1").DefaultView.Sort = "ID DESC"

---