主题：[求助]循环语句合成筛选语句

Dim filter As String

Dim sum As String

For Each dr As Row In drs

   filter= "[疾病] ='" & dr("疾病") & "'"

sum= sum & "or" & filter

  Next

MessageBox.Show(sum)

 Tables("疾病对比").Filter=sum

采用上面的循环语句想合成筛序表达式，用对话框显示sum的值，结果表达式前面多了一个or，运行的时候也提示：“Or”运算符前缺少操作数。

求教各位高手，嘻嘻，最近问的有点多，谢谢哈