Amigos, procurei, não achei, e consegui fazer um Select para pegar aniversariantes de um período, tentei enviar o comando para o arquivo de dicas e troca de arquivos, mas só dá erro, posto aqui, para quem precisar:

 

    sSQL = "SELECT * FROM CLIENTE"
    sSQL = sSQL & " WHERE DAY(DTNASC)>=" & Val(txtDATA(0).Text)
    sSQL = sSQL & " AND DAY(DTNASC)<=" & Val(txtDATA(2).Text)
    sSQL = sSQL & " AND MONTH(DTNASC)>=" & Val(txtDATA(1).Text)
    sSQL = sSQL & " AND MONTH(DTNASC)<=" & Val(txtDATA(3).Text)
    sSQL = sSQL & " ORDER BY MONTH(DTNASC),DAY(DTNASC)"

 

DTNASC É O CAMPO DA DATA DE NASCIMENTO DO CLIENTE

CLIENTE É O NOME DA TABELA

txtDATA UM ARRAY COM DIA INICIAL, MES INICIAL, DIA FINAL E MES FINAL.

 

MAIS UMA DICA CHAMEI ESTA CONSULTA DE ANIVERSARIO

 

No LostFocus dos Texts, verifico a validade digitada, e coloco o nome da Função

ANIVERSARIO

 

Em cada caixa de Texto digitada, ele atualiza.

 

 

VLU//