Inserimento data in access

[Sergran]

Ciao a tutti, girando in internte ho trovato questo comodo comando che mi permette di inserire automaticamente la data all'atto della modifica di un record.
il codice a chi può interessare è

Private Sub Form_BeforeUpdate(Cancel As Integer)
Me!Datamodifica = Fix(Now())
End Sub
M'interesserebbe apportare una modifica al codice in modo da ottenere subito dopo l'inserimento della data anche la chiusura della maschera

Aiutoooooo