主题：in的动态合成表达式总提示出错

如下代码：

 '集合选择的单据编号加载数据
    Dim ids As String
    For Each r As Row In tbl.Rows
        If r("选择") = True Then
            ids = ids & ",'" & r(Vars("Idc")) & "'"
        End If
    Next
    ids= ids.Trim(",")
    msgbox(Vars("Idc") & " In (" & ids & ")")
    DataTables(Mtb & "_主表").LoadFilter = Vars("Idc") & " In (" & ids & ")"
    DataTables(Mtb & "_主表").Load()

msgbox显示出来是：

订单编号 In ('D1404-027','D1404-028','D1404-029')

请教是哪里错了，为何总提示 ')' 附近有语法错误。

谢谢！