record che cambia ogni giorno

[waitec40]

    Function DiffADate()
       DiffADate = Abs (DateDiff("d", Now, "11/06/2004"))
    End Function

  
    sql = "SELECT *  FROM tabella  WHERE id_frase =" & DiffADate