dtResult = new configured datatable with 2 cols / dtOrig clone
dtResult =
(From d In dtData.AsEnumerable
Group d By k= d("YourKey").toString.Trim Into grp=Group
Let c = grp.Count
Let ra = New Object(){k,c}
Select dtResult.Rows.Add(ra)).CopyToDataTable