User mit VBA ermitteln die auf DB zugreiffen

Option Compare Database
Option Explicit

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long  

Function NTUSER() As String
Dim lngLen As Long, lngX As Long
Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    If (lngX > 0) Then
        NTUSER = Left$(strUserName, lngLen - 1)
    Else
        NTUSER = vbNullString
    End If
    
    'MsgBox NTUser  
End Function