lnMonth = CDATE(loRow("Date")).Month
Dim ldDate AS Date = Date.Now ldDate = loRow("Date") lnMonth = ldDate.Month