[Resolvido]Buscar dados

Boa noite a todos.
Gostaria de saber se tem algum amigo que poderia me ajudar.
Tenho uma tabela de usurários e um formulário para o Usuário se Logar.
Quero criar uma tabela para auditoria de acesso dos meus usuários ao sistema.
Aonde quando eu me Logar no sistema o meu nome de usuário seja gravado nesta tabela com a data e hora que me loguei.
Desde ja agradeço a compreensão

Vamos supor uma tabela tblAuditoria com os campos Código, Usuário, Data e Hora. Vamos supor que o campo que tem o nome do usuário no formulário seja txtUsuário:

Dim DB As Database
Dim RS As Recordset

Set DB = CurrentDb()
Set RS = DB.OpenRecordset("tblAuditoria", dbOpenTable)
RS.AddNew

RS("Usuário") = Me!txtUsuário
RS("Data") = Date
RS("Hora") = Time

RS.Update
RS.Close
Set RS = Nothing
Set DB = Nothing

Essa instrução deve ser colocada no evento do botão que faz o login bem sucedido. Tenha cuidado com o local certo para não gravar entrada sem essa realmente ter ocorrido, por exemplo, em um login tentado mas sem sucesso.

Obrigado Criquio
Funcionou Perfeitamente

Não esquecer o botão Resolvido