dt.AsEnumerable().Where(Function(x) x("Employee Status").ToString.Trim().Contains("Active") And Datetime.ParseExact(x("Hire Date").ToString,“MM/dd/yyyy”,System.Globalization.CultureInfo.InvariantCulture)>Datetime.ParseExact("06/30/2021",“MM/dd/yyyy”,System.Globalization.CultureInfo.InvariantCulture)).CopyToDataTable