I think you may have to modify that routine to write the data to a table,
and bind your form to that table.

Ok, here it is.  It's VERY simple however...nothing elaborate.
I am mearly recording who logs on and when they log off into a table.  I have
a report that I can run on the fly to show me who's logged on.

in the startup form open event  add the following code:
    'Record the logon of this user in the current_logins table
    Call logon_record.logon_user

in the form close event add the following code:
    'Record the logoff of this user in the current_logins table
    Call logon_record.logout_user

Note: Be sure you set the appropriate permissions on the current_logins table

to allow users to read+write to it.

Now create two objects.

1) create the module "logon_record" (see code below)
2) create table "current_logins"
definition is:

Two fields:  field Name:       Data Type
                     current_user     text                 (field size 50)
                     login_time         Date/Time

logon_record is a seperate module...here it is.

'Begin logon_record *********************

Option Compare Database
Dim db As Database
Dim strSQL As String
Dim strFunctionName As String

Function logon_user()
strFunctionName = "logon_user"

Set db = currentdb
Dim f1 As String
Dim f2 As Date
f1 = currentuser
f2 = Now

'Add this user to the logon table along with time
strSQL = "INSERT INTO current_logins ( current_user, login_time ) VALUES (" &
_
"'" & f1 & "'" & "," & "'" & f2 & "'" & ")"
   db.Execute strSQL
End Function

Function logout_user()
strFunctionName = "logout_user"
Set db = currentdb
  strSQL = "delete from current_logins " & _
   "WHERE current_user = " & "'" & currentuser & "'"
   db.Execute strSQL
End Function

'End logon_record **********************