ник: Serge Gavrilov
Видимо, речь не о пользователе Access (Currentuser)?
Тогда способов много:
1. Environ("username")
2. Использование
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
3. CreateObject("WScript.Network").username
4. ....