Dim dv_stand As New DataView
Dim dt_stand As New DataTable("stand")
Dim dr_stand As DataRow
 
dt_stand.Columns.Add("RG", GetType(Integer))
dt_stand.Columns.Add("STNR")
dt_stand.Columns.Add("RDN", GetType(Integer))
dv_stand.Table = dt_stand
dg_stand.DataSource = dt_stand

dv_stand.Sort = "RDN Desc"