help with audit trail coding

[hary08]

I have a module copied ftom this site, here it is:

Option Compare Database
Option Explicit

Public Function AuditTrail()
On Error GoTo Err_Audit_Trail

'ACC2000: How to Create an Audit Trail of Record Changes in a Form
'http://support.microsoft.com/default.aspx?scid=kb;en-us;197592

Dim MyForm As Form
Dim ctl As Control
Dim sUser As String
Set MyForm = Screen.ActiveForm
' sUser = "User: " & UsersID 'You need to identify your users if you are not using Access security with workgroups.
sUser = CurrentUser
etc....
it does audit trail ...is ist possible that sUser= current user will retrieve information from my table tblEmployee, with fields username and password

so my audit log will show the username that logs

additional info, i have log in form after start up
please help!tnx