Non c'è bisogno di ricorrere a vba. Apri la tabella in visualizzazione struttura, seleziona il campo cui vuoi assegnare come data di inserimento del record quella corrente e nelle proprietà del campo, alla voce "valore prededinito", assegni

=Date()