Access - Protege una aplicacion con una fecha

Private Sub Form_Current()

If DCount("*", "008 001 T Visitas") > 17500 Then

MsgBox "Pongase en contactro con su Administrador 630923449", vbOKOnly, "Ha superado el número de registros"

Me.Undo

DoCmd.Quit

End If

End Sub

Private Sub Form_Load()     'Yo lo pondría al abrir el formulario

    If DCount("*", "008 001 T Visitas") > 17500 Then

        MsgBox "Pongase en contactro con su Administrador 630923449", vbOKOnly, "Ha superado el número de registros"

        Me.Undo

        DoCmd.Quit

    Else If Date >= #12/31/2017# Then   'Siempre MM/DD/AAAA

        MsgBox "Pongase en contactro con su Administrador 630923449", vbOKOnly, "Ha superado la fecha de licencia"

        Me.Undo

        DoCmd.Quit

    End If

End Sub