I am trying to run a sub to check the date to make a mdb/mde time limited. I can't quite get the sytax right.
This is what I got so far. I get syntax error on first line. "Compile Error, expected end sub"
How do I fix it?
Private Sub Form_Load()
Dim DataMax As Date
DataMax = "12/31/2007"
If Now() > DataMax Then
MsgBox "Your time has expired! Please Register"