Dim descriptor1 As New Telerik.WinControls.Data.SortDescriptor()
descriptor1.PropertyName = "vchrSubdivisionName"
descriptor1.Direction = System.ComponentModel.ListSortDirection.Ascending
Me.RadGridView1.MasterTemplate.SortDescriptors.Add(descriptor1)
Dim descriptor2 As New Telerik.WinControls.Data.SortDescriptor()
descriptor2.PropertyName = "vchrLotNumber"
descriptor2.Direction = System.ComponentModel.ListSortDirection.Ascending
Me.RadGridView1.MasterTemplate.SortDescriptors.Add(descriptor2)