Hi,
Can you try as the following?
arrDr =dt.AsEnumerable.Where(Function(r) DateTime.Parse(r("DateColumn").ToString)>=new DateTime(Now.Year,Now.Month,1) AndAlso DateTime.Parse(r("DateColumn").ToString)<new DateTime(Now.Year,Now.Month,6)).ToArray
Note: arrDr is DataRow Array type.
Regards,