Visual Basic - Datagrid manipular celdas

Hola a todos: Quisiera que me ayuden con este problemita, resulta que en mi base de datos (Sql Server) recupero una tabla "Pacientes" que contiene: dni, apellido y nombre, domicilio... y fecha de nacimiento (tipo date)
el problema es que quiero calcular la edad con la fecha de nacimiento y que me lo muestre en una columna.

el código en el evento Load del Formulario que contiene el Datagrid es el siguiente:
' Crear los objetos
Conectar cnn
registro rst
strSql = "SELECT * FROM Paciente"
rst.Open strSql, cnn, adOpenStatic, adLockOptimistic

' Enlazamos al Datagrid el recordset
Set TablaPaciente.DataSource = rst

TablaPaciente.AllowUpdate = False

Set intColDni = TablaPaciente.Columns(0)
Set strColApeyNom = TablaPaciente.Columns(1)
Set strColDomic = TablaPaciente.Columns(2)
Set strColTelef = TablaPaciente.Columns(3)
Set intColEdad = TablaPaciente.Columns(4)

intColDni.Caption = "DNI"
strColApeyNom.Caption = "Apellido y Nombres"
strColDomic.Caption = "Domicilio"
strColTelef.Caption = "Teléfono"
intColEdad.Caption = "Edad"

registros = TablaPaciente.VisibleRows

edad = Str(DateDiff("yyyy", intColEdad.Text, Now)) ' calcula la edad
intColEdad.NumberFormat = edad

Resulta que me modifica para toda la columna con la edad calculada del primer registro
Pregunta: Como hago para calcular la edad de todos los pacientes y que me muestre correctamente ?