access database help

error 2221

[humpingdan]

Private Sub Form_Load()

Dim username As String * 32

If GetUserName(username, 32) Then

If Trim(username) <> "Admin2" Then

If username = "Dan" Then username = "KLT"
If username = "nickyc" Then username = "NC"
staff.SetFocus
staff.Text = Trim(username) <<<<<<this line
week_commencing.SetFocus
'staff.Enabled = False

End If

End If

End Sub

any help appreciated?