Deletando dados no BD

Como faço para deletar em um BD access, onde a data armazenada for menor que a data atual.
É o seguinte quero que os cadastros feitos até uma determinada data, quando esta data for atual esses cadastros sejam automaticamente deletados.

Eu estou utilizando assim, mas não esta dando certo, pois as vezes deleta tudo independente da data e as vezes não deleta nada...

dataatual = now()
conexao.execute = ´Delete * From user_cadastro WHERE DataEmail < #´&dataatual&´´
¬>

não está dando certo o que tenho que fazer???
Agradeço a ajuda desde já.

Abraço