Cálculo entre datas

Boa tarde

Criei um formulário de cadastro de pessoas: CodPessoa, NomePessoa, DataNascimento.
Preciso criar um campo que me dê um aviso em caso da diferença da Data de hoje menos a dataNascimento seja =<7.
Agradeço antecipadamente

Se for num formulário, coloque no evento "Após atualizar" do campo DataNascimento:

Private Sub DataNascimento_AfterUpdate()
If DateDiff("d", DataNascimento, Date) > 7 Then
MsgBox "Maior que 7 dias"
End If
End Sub

Se for para meses use "m", se for para anos use "yyyy".

Boa tarde

Obrigado pelo auxílio, mas faltou algo.
Acontece que quando a DataNascimento é cadastrada, constam dia, mês e ano.
Se calcularmos o número de dias entre a DataNascimento e o dia de hoje, dará um número bastante grande.
Necessito que seja calculada a diferença entre DataNascimento(só dd/mm) e datahoje(só dd/mm), obviamente que cuidando para as viradas de ano.

Tente usar o parametro "y" no lugar do "d".
Não sei bem como funciona a função com este parametro, mas acho que é isso que você precisa. Qualquer coisa dê uma olhada no help desta função (clique em cima de Datediff e aperte F1).