Сохранение в таблице БД информации о текущем системном пользователе

Option Explicit
Option Compare Database
 
' Получаем имя компьютера для авторизации
Private Declare Function apiGetComputerName Lib "kernel32" Alias _
   "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function fOSMachineName() As String
Dim lngLen As Long, lngX As Long
Dim strCompName As String
   lngLen = 16
   strCompName = String$(lngLen, 0)
   lngX = apiGetComputerName(strCompName, lngLen)
   If lngX <> 0 Then
       fOSMachineName = Left$(strCompName, lngLen)
   Else
       fOSMachineName = ""
   End If
End Function

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 
Function fOSUserName() As String
' Returns the network login name
    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
        fOSUserName = Left$(strUserName, lngLen - 1)
    Else
        fOSUserName = ""
    End If
End Function