[Resolvido]Emitir aviso 5 dias antes

Boa noite

Tenho um campo 1_Experiencia que contem a data que vence o contrato de experiência do funcionário. Gostaria que quando
abrisse um formulario, me avisasse 5 dias antes de vencer, que tem funcionarios vencendo o contrato.
Teria que contar se tem registros com data entre hoje e daqui 5 dias mas nao ta funcionando, alguem pode me ajudar?


Private Sub Form_Load()

Dim ContaRegistros As Integer
ContaRegistros = DCount("[ID]", "FUNCIONARIOS", "[1_EXPERIENCIA]>=date()" And "[1_EXPERIENCIA]<=Date()-5")
If ContaRegistros > 0 Then
MsgBox "Verifique ", vbOKOnly, "Alerta"

End If

End Sub

Descobri

Era só a colocacao das aspas

Dim ContaRegistros As Integer
ContaRegistros = DCount("[ID]", "FUNCIONARIOS", "[1_EXPERIENCIA]>=date() And [1_EXPERIENCIA]<=Date()+5 and [Situação]='Ativo'")
If ContaRegistros > 0 Then
MsgBox "Verifique ", vbOKOnly, "Alerta"