[Resolvido]Auditar formulário

Bom dia

Preciso de uma ajuda, estou montando um sistema de auditoria que quando o usuário clicar no botão de OK na tela de login algumas informações deverão ser alimentadas automaticamente na tabela de auditoria (Nome do Usuário, Data Operação e Computador Origem).
Há um modulo (mod_aud) onde contém a instrução abaixo para inserir os dados na tabela de auditoria. Minha dúvida é como chamar a execução deste modulo para alimentar os dados.

Dim strSql$
strSql = "INSERT INTO tblAuditoria (NomeUsuario,DataOperação,MaquinaOrigem) "
strSql = strSql & "VALUES(""" & CreateObject("Wscript.network").UserName & """,'" & Now & "','" & Environ("computername") '"
CurrentDb.Execute strSql

Estou utilizando o exemplo do mestre Avelino (Quem alterou) onde executa esta função, mas não estou conseguindo identificar como fazer.

Segue em anexo o banco para facilitar o entendimento.

Mais uma vez obrigado pela ajuda

segue um exemplo para estudos e posterior adaptação. só vai ficar faltando ai o modulo de inserção o usuario de rede, que não tenho aqui agora mas tenho no meu cinto de utilidades.

Rubens boa tarde

Obrigado pelo retorno, esta apresentando um erro de compilação o banco que enviou. Ainda tenho dificuldades em realizar adaptações de códigos, gostaria de saber se pode mexer no exemplo que enviei aqui no fórum para entender como realizar a tarefa que é justamente onde não consegui dar continuidade para chamar a função constante no módulo.

fiz algumas modificações, mas consegui fazer o que você quer. Como você vai precisar de uma tela de login e os dados na tabela auditoria, segue as duas coisas numa só. Veja no formulario de login, no evento "ao clicar" do botão de "OK" o codigo. Se não entender, pode me perguntar que te explico.

Rubens bom dia

Estou tentando acessar pela tela de login e todas as senhas estão apresentando que estão incorretas, cadastrei uma no meu nome mas mesmo assim não consegui fazer o login para ver as como ficaram as modificações que você fez.

Verifiquei no botão OK a programação feita e tem muita coisa nova para mim, que sinceramente não sei o que é ainda.

Copiei os módulos modAcesso e Módulo2 para meu projeto para utilizar a questão da auditoria, mas esta apresentando o erro abaixo

Erro de compilação "Variável não definida"

rstAuditar!NomeUsuario = Login.Usuario (Para o Login)

obrigado

Rubens bom dia

Consegui resolver utilizando seu exemplo

Obrigado pela ajuda