主题：[求助]语法错误

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' 附近有语法错误。请帮我看看