Sua data de nascimento deve estar em string, e grava somente dia e mes, por que para aniversário só pode pegar mes e dia, como está esta variavel lvDate? E o campo do BD Data_de_Nascimento? Não acho que funciona assim.
Mas tente assim.
rs.Open "Select * from Contatos where Data_de_Nascimento like '%" & lvDate & "'", db, adOpenDynamic, adLockReaOnly
vlu//