cmd.CommandText = "Select 权限 From {用户} Where [姓名] = '" & UserName & "'"这一句掉了个点
cmd.CommandText = "Select 权限 From {用户} Where [姓名] = '" & User.Name & "'"