主题：显示Administratar怎么回事

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