How Do I Call The User Name?

I am using some code found on this site to creat a log in process. It works great but I want call the UserName and insert it into my database showing
Welcome<Username> you are currently logged in..

Can someone tell me how to call this from a form?
following is the code behind the log in on the "Onload" event.
Thanks in advance.
Fen

Private Sub Form_Load()
On Error GoTo Err_Form_Load

'To ensure a user has logged on correctly we check to see if a userlevel has been set.
'I use the same Select Case below in the "Form_Load" event of each form as some forms you
'may want to set different thins for different user levels rather than setting them
'globally in a module.

With Me

Select Case User.UserLevel

Case 1 'All OK


Case 2 'All OK


Case 3 'All OK
.Command26.Enabled = False
.cmdOpenUsers.Enabled = False

Case 4 'All OK
.cmdOpenUsers.Enabled = False
.AllowAdditions = False
.AllowDeletions = False
.AllowEdits = False

Case Else 'No userlevel set, must have got here via devious means !!

' MsgBox "No User Level Set. ", vbCritical, " LOGON ERROR"
DoCmd.Close acForm, Me.Name

End Select

End With

Exit_Form_Load:
Exit Sub

Err_Form_Load:
MsgBox Err.Description
Resume Exit_Form_Load
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call LogUserOff 'Called from the Unload event incase the user just clicks the main
'Access Window Close Button or exits the Db some other way.

End Sub