Why am I getting this compile error:

-----------

HLGlobals1.PushBatch, line 152

Type mismatch error. Expected Integer, but got Boolean

Select Case ldTot

Dim ldTot as Integer ldTot = (e.TotalSeconds - rs.Field("MemberSince").DateValue.TotalSeconds) /31536000 Select Case ldTot Case 0 demoTenure.DemographicValue = "Less than 1 Year" Case ldTot >= 1 and ldTot < 3 demoTenure.DemographicValue = "1 - 2 Years" Case ldTot > 2 and ldTot < 5 demoTenure.DemographicValue = "3 - 4 Years" Case ldTot > 4 and ldTot < 6 demoTenure.DemographicValue = "5 Years" Case ldTot > 5 and ldTot < 11 demoTenure.DemographicValue = "6 - 10 Years" Case ldTot > 9 and ldTot < 21 demoTenure.DemographicValue = "11 - 19 Years" Case ldTot > 20 demoTenure.DemographicValue = "20 Years or more" end