fazer busca e enviar por email

Pessoal, boa tarde!
Eu sou novo no uso de access,eu tenho cadastros de produtos de segurança e tenho algumas restrições de uso, validade do produto, validade do ca e data para troca de equipamento. Eu gostaria de saber se tem como fazer uma consulta verificando os campos vencidos e enviar um email para o responsável.
Obrigado e aguardo retorno.

Ola seja bem vindo ao forum;

Você pode fazer essas validações nos criterios de uma consulta.

Para enviar por email tem muitos tópicos aqui, dê uma pesquisada.

Eu agradeço pela atenção dispensada.
Eu criei uma forma de seleção e envio por e-mail e coloquei no evento "ao carregar" do formulário principal, para que dessa forma assim que BD for aberto o sistema faz uma busca e verifica se existem dados vencidos e caso positivo envia um e-mail para o destinatário em questão. No entanto, isso não está dando certo. Gostaria que alguém pudesse me ajudar. O código que criei é o seguinte:
Private Sub Form_Load()
Dim OutApp As Object
Dim OutMail As Object
Dim rsTeste As dao.Recordset
Dim StrSql As String
Dim data As Date
data = Date


StrSql = "SELECT * FROM Lancamento_EPIs WHERE Data_Troca_EPI < " & Date
Set rsTeste = CurrentDb.OpenRecordset(StrSql)

If rsTeste.RecordCount > 0 Then
'5 dias antes
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

With OutMail
.To = "denisrccibia@hotmail.com"
.Subject = "Ítens de EPI's vencidos e/ou próximo de vencer"
.Body = "Favor verificar Gestão de EPI's"
.Send
End With

Set OutMail = Nothing
Set OutApp = Nothing

MsgBox "E-mail enviado com sucesso!", vbInformation, "Aviso"

' fim da condição
End If

End Sub

O que acontece que mesmo as datas estejam dentro do prazo, o programa envia o e-mail com mensagem de itens vencidos.