Mostrar aniversariantes 5 dias antes

Boa tarde a todos;

Tenho um sisteminha de cadastro de clientes e gostaria de mostrar na tela do admin os futuros aniversariantes com 5 dias de antecedencia!!

Estou utilizando o seguinte codigo:

Function formataData(data,formato,separador)

data = replace(data,"/","-")
data = replace(data,".","-")

if isdate(data)=false then
Response.write("Data Inválida")
Response.End()
end if

if formato = 1 then
IntDia = right("0"&day(data),2)
IntMes = right("0"&month(data),2)
IntAno = year(data)

formataData = IntDia&separador&IntMes&separador&IntAno
elseif formato = 0 then

IntDia = right("0"&day(data),2)
IntMes = right("0"&month(data),2)
IntAno = year(data)
formataData = IntAno&separador&IntMes&separador&IntDia

else

response.write("ERRO")

end if
End Function

varData1 = Date()
varData = formataData(varData1,1,"/")

%>

<table border="0" width="558px" cellpadding="4" cellspacing="1" class="BordaTabela">
 <%
 While Not RS_Niver.EOF
 %>

 <%

 varNiver = FormataDado(RS_Niver("data_nascimento_cobranca"),"DATA_NASCIMENTO")

 if varNiver < varData then
 %>

 <tr class="Linha2Tabela">

 <td width="300px" colspan="3">
 <span class="TXTbox">Nome:  <b><%= RS_Niver("nome_cobranca")%></b></span>
 </td>

 <td width="258px" colspan="3">

 <span class="TXTbox">Data de Nasc.:  

 <B>

 <% Response.Write(varNiver)%>   <% Response.Write(varData)%>

 </B>

 </span>

 </td>

 </tr>

 <%
 end if
 %>

 <%
 RS_Niver.MoveNext
 Wend
 %>
 </table>

Ele lista todos os clientes, mas não tenho ideia de como mostrar somente os que farão niver daqui a 5 dias!!!