Access timer

Er det mulig at sætte tid på en database såldes den feks. kun kan bruges i en uge så lukker den ned??
eller at koden
Private Sub Kommandoknap189_Click()
Dim a As String, b
b = "12345"
a = InputBox(Prompt:="Indtast password.", title:="Password", Default:="")
If a = b Then
DoCmd.OpenForm "Hovedmenu Liste 1"
Else:
MsgBox "Forkert password."
Exit Sub
End If
End Sub


få en timer på - såldes at koden udløber efter en uge??