Έστω ότι έχεις ένα πίνακα στην Access με όνομα dates με ένα πεδίο το mydate τύπου date. Τότε πολύ εύκολα με τη χρήση της Now() έχεις:
Για παράδειγμα
Private Sub settime_Click()
CurrentDb.Execute "insert into dates(mydate) values(now())"
End Sub
Στο πεδίο θα μπει το Timestamp. Δοκίμασε το
Manos