dtSample = dtSample.AsEnumerable.OrderByDescending(Function(row) CDate(row("End Date"))).CopyToDataTable