[Resolvido]Data nascimento versus Idade Atual

Olá,

Alguém poderia, por favor, me ajudar a corrigir a Idade Atual.

Por Exemplo:
Pedro nasceu em 10/10/1980 ele tem na data de hoje 40 anos, mas no meu "projeto" o resultado foi 41 anos.

Código:

Option Compare Database

Private Sub DataNascIdade_AfterUpdate()
     AtualizaIdade
End Sub

Public Sub AtualizaIdade()
Dim vData As Date
Dim vIdade As Variant
    
    If IsNull(Me.DataNascIdade) Or Trim(Me.DataNascIdade) = Empty Then Exit Sub
    vData = CDate(Mid(Me.DataNascIdade, 1, 2) & "/" & Mid(Me.DataNascIdade, 3, 2) & "/" & Mid(Me.DataNascIdade, 5, 4))
    vIdade = DateDiff("yyyy", Format(vData, "mm/dd/yyyy"), Date)
    Me.DataNascIdade.Value = Empty
    Me.DataNascIdade.InputMask = Empty

    Me.DataNascIdade.SetFocus
    Me.DataNascIdade.Value = vData & " - (" & vIdade & " Anos)"

End Sub


Obrigado, Alexandre Fim