If e.Sender.Checked Then
    If User.Name.Trim() = "liujiyong@bdcom.com.cn" Then
    DataTables("临时版本跟踪表").LoadFilter = "状态 = \'Published\'"
Else
    Select Case user.Group
        Case "协议一组","协议二组","交换组","R驱动组","S驱动组","EPON组","ONU组","网管组","网络组","路由组","PTN应用组","链路组"
            DataTables("临时版本跟踪表").LoadFilter = "研发邮箱 like \'%" & User.Name.trim() & "%\' andalso 状态 = \'Published\'"
        Case "测试epon"
            DataTables("临时版本跟踪表").LoadFilter = "邮件通知 Like \'%eponver@bdcom.com.cn%\' andalso 状态 = \'Published\' "
        Case "测试switch"
            DataTables("临时版本跟踪表").LoadFilter = "邮件通知 like \'%switchver@bdcom.com.cn%\' andalso 状态 = \'Published\'"
        Case "测试"
            DataTables("临时版本跟踪表").LoadFilter = "邮件通知 like \'%routerver@bdcom.com.cn%\' andalso 状态 = \'Published\'"
    End Select
End If
    DataTables("临时版本跟踪表").Load()
Tables("临时版本跟踪表").Sort = "需求编号 DESC"
End If

详细错误信息：
\'andalso\' 附近有语法错误。请帮我看看