No nessuna funzione...
codice:
sql = "INSERT INTO tabella(DataOperazione) VALUES (#"&date()&"#)"
  cn.Execute sql