In den Formularentwurf ein Bezeichnungsfeld mit dem Namen DatumUhrzeit (oder nur Uhrzeit) anlegen. Dann bei Formulareigenschaft "Bei Zeitgeber" folgenden Code eingeben:
Private Sub Form_Timer()
DatumUhrzeit.Caption = Now
Uhrzeit.Caption = Time
End Sub
Zeitgeberintervall: 1000