Nella tabella inserisci un campo di tipo data/ora formato data generica e nella maschera, all'evento "prima di inserire" associ questo codice:

codice:
Private Sub Form_BeforeInsert(Cancel As Integer)
Me.nome_campo = Now()
End Sub
Ricordati inoltre di bloccare il campo in modo da impedire modifiche accidentali.