[Resolvido]Pegar a data sempre do PC qeu funciona como servidor

Ola pessoal sou novo aqui mas gostaria de parabenizar a todos pelo excelente forum e pela pronta contribuição de todos.

Minha duvida é a seguinte tenho um pequeno sistema em ACCESS que com a ajuda da
ferramenta do Avelino funciona muito bem.Ele fica armazenado aqui na empresa em uma pasta no servidor WIN 2003 e as estações se comunicam utilizando WIN XP.O
problema surge quando alguem altera a data na estação de trabalho, como uma das principais funções do sistema é pegar o ano atual e adcionar essa informação a um trecho do novo registro esse ano tem de ser sempre o ano corrente e caso alguem o altere para um outro qualquer ou a maquina apresente problema na bios por exemplo o registro no sistema estara incorreto.
Gostaria de saber como pegar a data(somente o Ano) sempre da maquina servidora onde o BD esta localizado WIN 2003 SRV e não da cliente como acontece quando um registro é salvo.

só para esclarecer segue uma parte do codigo

Private Sub RegistroPEDIDO_Afterupdate()

Dim ANO As String

ANO = Format(Year(Now), "00")

mando pra um objeto (Me!DATA) e salvo.

Boas Junior, seja bem vindo ao Fórum!

Voce pode ter uma tabela no BD do servidor, para armazenar a data atual,

Criaria um form para abrir em oculto ao iniciar o BD do servidor... e no timer um codigo para atualizar esta tabela de tempo em tempo... ai no outro pc o codigo puxaria esta data.

No Repositorio tambem tem um script que atualiza a data do pc na net.

Ou ainda aqui.

Era exatamente o que eu esta va querendo criquio valeu pelo link agradeço tambem ao piloto pela atenção. Quando tiver terminado esse sisteminha disponibilizo o anexo a todos.

Até a proxima.

O Fórum agradece o retorno.