(
From row In dt_Data
Group row By
k1=row("Purchase Requisition").ToString.Trim,
k2=row("Scode").ToString.Trim
Into grp=Group
Select dt_Queue.Rows.Add({k1,k2, String.Join(",", grp.Select(Function(gr) gr("Item of requisition").ToString))})
).CopyToDataTable