主题：請問哪裡錯誤??

 问问题，不要这样好不好。

 你要说报什么错啊。自己弹出 msgbox(flt) 看看

 报什么错啊，弹出 msgbox(flt) 看看

 多了一个空格

Dim mData As String = e.Form.Controls("TextBox1").text
Dim mField  As String = e.Form.Controls("TextBox2").text

Dim strs As String = mField
Dim Values() As String
Values = strs.split(",")
Dim flt As String  = ""
If mData <> "" Then
    For Index As Integer = 0 To Values.Length - 1
        If Index = values.length-1 Then
            flt = flt + values(Index)  & " Like '*" & mData & "*'"
        Else
            flt = flt + values(Index) & " Like '*" & mData & "*' or "
        End If
    Next
End If
msgbox(flt)
Tables(e.Form.Name & "_Table1").Filter = flt