... non sono già funzioni di mysql? (o anche sql se non ricordo male)

... cmq anche così non mi fa nulla

ListConnection.Execute "Update li_474 Set inviato=1, inviato_data='"& DATE() &"', inviato_ora="'& TIME() &"' WHERE email='" & message.email & "'"