Access - PASSWORD

Tengo un codigo para obtener el username() de la red que funciona sin problemas para win95 o WinNT, sin embargo no funciona en Windows 2000 Alguien tiene el codigo necesario para obtener el username()

El codigo actual es:

Option Compare Database
Option Explicit
Public Tipo_Imp As Integer
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function Nombre_Usuario() As String
Dim Cadena As String

Cadena = Space(256)
GetUserName Cadena, 256
Cadena = RTrim(Cadena)
Nombre_Usuario = Left(Cadena, Len(Cadena) - 1)
End Function

la declaracion API está bien, pero no sé si la funcion tiene algun error.
Yo utilicé la funcion para ver el usuario parecida a la tuya, prueba a ver si te funciona:

Function VerPC()

Dim l As Long
sBuffer = Space$(255)

l = GetComputerName(sBuffer, 255)
sBuffer = Trim(sBuffer)
sBuffer = Mid(sBuffer, 1, Len(sBuffer) - 1)
End Function