高手达人帮帮我

Private Sub mnucardaadd_Click()
    frmcardalr.Show    StatusBar1.Panels(1).Text = "车辆档案录入窗体"
End Sub
我想这个窗口只能管理员能用 普通用户用不这窗口 谁教教我怎么能
谢谢了 有高手有工夫的留个QQ 我找你也行  急急急 这是我们论文 马上要交了。