If cr.IsNull("出生年月") = False Then
Dim y,m,d As Integer
DateYMD(cr("出生年月"),Date.Today,y,m,d)
cr("年龄") = y
End If