Help on LINQ GroupBy, Max and Min

It working @kumar.varun2

Is it possible to replace same thing in this expression?

(From d In DtRead.AsEnumerable
Group d By k=d("Id").toString.Trim Into grp = Group
Let IncMin = String.Join(" ",CDate(grp.Min(Function (n) n("Date 1").toString.Trim)).ToString("dd.MM.yyyy"))
Let SfMax = String.Join(" ",CDate(grp.Max(Function (M) M ("Date 2").ToString.Trim)).ToString("dd.MM.yyyy"))
Let Sa = IncMin(3)
Let Sa1 = IncMin(4)
Let ra = New Object(){k,IncMin,SfMax,Sa,Sa1}
Select r = DtClone.Rows.Add(ra)).CopyToDataTable