Visual Basic - Sesion PC

Mi jefe quiere que; cuando alguien trabaje en la BD explotada por medio de un programa hecho en VB, al dar click al boton guardar, se guarde la información introducida en el formulario VB hacia la BD, (esto no es problema - ya lo tengo hecho) el problema es que se guarde automaticamente el Nombre de usuario, que inicio la sesión, en la base de datos.

¿Hay alguna función o procedimiento para guardar el nombre de usuario en la base de datos sin que haya necesidad de que se introduzca manualmente?

Espero haberme explicado correctamente.

Si esto es extraño creanme mi jefe es el tipo mas viajado que he conocido.

¡ Gracias !

En un formulario:
Dim UsuarioSesion$
UsuarioSesion= LoginRed(strBuffer)
UsuarioSesion= strBuffer

En un módulo .bas:

' LOGIN EN LA RED
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function LoginRed(ByVal red As String)
Dim lSize As Long
Dim lRes As Long
strBuffer = String(256, Chr$(0))
lSize = Len(strBuffer)
lRes = GetUserName(strBuffer, lSize)
If lRes And lSize Then
strBuffer = left$(strBuffer, InStr(strBuffer, Chr$(0)) - 1)
Else
strBuffer = ""
End If
' Label1.Caption = strBuffer
End Function

P.D.
Si, además, quieres el nombre de la máquina desde la que se ha efectuado la operación
en un formulario:
Dim dominio
dominio = Environ("userdomain")

Espero te sirva.
Saludos.

gracias me servira muchisimo tu ayuda. hasta pronto.