Falha Na Segurança

ola pessoal.
Meu caso e e seguinte, estou desenvolvendo um projeto como passa tempo e um amigo comerciante ficou interessado chegamos a um acordo de ele testa durante 30 dias. no meu no projeto  tenho duas rotinas uma para evita a copia (pirataria) e outra pra determina o um período de de uso (para teste) abas funciona perfeitamente, mas a segunda ten uma falha se o usuário for experiente basta altera a hora do PC e o programa volta a funcionar.
se os amigos tiverem alguma solução desde já agradeço.

'codigo pra bloqueio após a data
  If Date >= #4/20/2014# Then
      DoCmd.OpenForm "frmAlerta" 'bloqueia o sistema
   End If
'codigo pra bloqueio antes da data
  If Date <= #3/20/2014# Then
      DoCmd.OpenForm "frmAlerta" 'bloqueia o sistema
   End If

O que você precisa está aqui. Uso a bastante tempo e funcionado perfeitamente. Mesmo que altere a data ele continua bloqueado.

Serial Demo

ola amigo gilberlanio vou estuda esse exemplo e depois digo se resolveu meu caso. desde já agradeço

Boa sorte nos estudos.