Hola... puedes intentar algo como esto:
dim d as DateTime
d = ctype(rs("ano_nac"))
dim i as integer
i = Cint(DateDiff(DateInterval.Day, Now, d))
Nota.- La sintaxis de datediff es de .Net, pero creo que en ASP ó VB es similiar... pero no la tengo a la mano, pero esa sería mas o menos la idea.
Saludos
