Try this code :
Public Function CalculateAge(ByVal BirthDate As Date)
Return DateDiff(DateInterval.Year, Date.Now.Date, BirthDate)
End Function
Call this function where you want to calculate age
Dim bd As Date=New Date("1/12/2010")
CalculateAge(bd)
I hope it will help you. :)