Søgning på dato men årstal er wildcard

Jeg skal i SQL\'en hente alle der har fødselsdag i dag, derfor vil jeg gerne have skiftet \"1976\" ud med et wildcard således at der søges på alle årstal.

<%
Function FormatTimeDato(theDate)
FormatTimeDato = day(thedate) & \"/\" & month(thedate) & \"/\" & \"1976\"
End Function
                                   
Dato = FormatTimeDato(now)
                       
SQL = \"SELECT fornavn, efternavn, nickname, fodselsdag FROM user WHERE fodselsdag LIKE #\" & Dato & \"#;\"                       
Response.write SQL
ConnectDBOpen(SQL)             
If objRS.EOF Then Response.write \"Ingen har fødselsdag i dag\"
                   
    If not objRS.EOF Then
        if objRS(\"nickname\") <> \"\" Then
                    showname = objRS(\"nickname\")
                  ELSE
                      showname = objRS(\"fornavn\") & \" \" & objRS(\"efternavn\")
              End if
    End if
Do While not objRS.EOF %>
<%= showname %> har fødselsdag i dag!<br>
<%
objRS.Movenext
Loop
ConnectDBClose()
%>