主题：显示Administratar怎么回事

打开项目后不显示当前用户，切换用户后显示同一个英文名是怎么回事啊，请教老师

With CurrentTable
    Dim Str1 As String
    Str1 =str1 & "欢迎使用姚记中小型企业管理统,本系统设计人:姚军  QQ:845701102 "
    Str1 =str1 & "当前登录: " & UserName
    Str1 =str1 & "  时间:" & Date.Now() & "  星期" & "日一二三四五六".Chars(Today.DayOfWeek)
    StatusBar.Message1 = Str1
End With