(From row In dt_data.AsEnumerable
Let a = String.Join(",",System.Text.RegularExpressions.Regex.Matches(String.Join(",",row.ItemArray),"\b\d{2}\.\d{2}\.\d{2}\b")).Split(CChar(",")).ToList
Let b = String.Join(",",a.Where(Function(x) x.ToString.Equals(Now.ToString("MM.dd.yy")))).ToList().Count=4
Let c = (String.Join(",",((String.Join(",",row.ItemArray)).Split(",".ToCharArray,StringSplitOptions.RemoveEmptyEntries)).toarray())+",Output"+Now.ToString("MM.dd.yy")).Split(CChar(","))
Let d = If(row("Name").ToString.Equals(str_Name),c,row.ItemArray)
Select dt_data.Clone.Rows.Add(c)).CopyToDataTable
(From row In dt_data.AsEnumerable
Let a = String.Join(",",System.Text.RegularExpressions.Regex.Matches(String.Join(",",row.ItemArray),"\b\d{2}\.\d{2}\.\d{2}\b")).Split(CChar(",")).ToList
Let b = String.Join(",",a.Where(Function(x) x.ToString.Equals(Now.ToString("MM.dd.yy")))).ToList().Count=4
Let c = (String.Join(",",((String.Join(",",row.ItemArray)).Split(",".ToCharArray,StringSplitOptions.RemoveEmptyEntries)).toarray())+",Output"+Now.ToString("MM.dd.yy")).Split(CChar(","))
Let d = If(row("Name").ToString.Equals(str_Name),c,row.ItemArray)
Select dt_data.Clone.Rows.Add(d)).CopyToDataTable