主题：帮我简化下这个加载代码

If e.DataTableName = "工作任务表"
   e.Filter = "[负责工程师] = '" & e.User.Name & "'"
End If
If e.DataTableName = "工作任务表" AndAlso e.User.Name = "开发者"  Then
   e.Filter = "[负责工程师] In ('聂宗财','罗顺龙','刘喜明','郭泽燕')"
End If
If e.DataTableName = "工作任务表" AndAlso e.User.Name = "袁总"  Then
   e.Filter = "[负责工程师] In ('聂宗财','罗顺龙','刘喜明','郭泽燕')"
End If
If e.DataTableName = "工作任务表" AndAlso e.User.Name = "宋经理"  Then
   e.Filter = "[负责工程师] In ('聂宗财','罗顺龙','刘喜明','郭泽燕')"
End If
If e.DataTableName = "工作任务表" AndAlso e.User.Name = "陈总"  Then
   e.Filter = "[负责工程师] In ('聂宗财','罗顺龙','刘喜明','郭泽燕')"
End If
If e.DataTableName = "工作任务表" AndAlso e.User.Name = "steve"  Then
   e.Filter = "[负责工程师] In ('聂宗财','罗顺龙','刘喜明','郭泽燕')"
End If
If e.DataTableName = "工作任务表" AndAlso e.User.Name = "管理员"  Then
   e.Filter = "[负责工程师] In ('聂宗财','罗顺龙','刘喜明','郭泽燕')"
End If


陈总，宋经理。袁总。STEVE这些用户都属于高管组
聂宗财。罗顺龙。刘喜明，郭泽燕都属于数据输入组

我的目得就是想，当数据输入组用户打开文件时，工作任务表  中只加载  负责工程师  等于用户名的记录，而当高管组进来时，所有  负责工程师的都加载

谢谢