主题：我在窗口学习编写以下代码，提示错误

改成这样

Dim nms() As String = {"ComboBox1","ComboBox2","ComboBox3","DateTimePicker1","DateTimePicker2"} '所有输入口使用STRING表示
Dim sps() As String = {"'","'","'","#","#"} '输入框使用'表示,日期使用#表示,双引号引用,逗号分开
Dim bjf() As String = {"=","=","=",">=","<="} '定义每个输入口搜索范围
Dim fds() As String = {"第02","第06","第05","年份日期","年份日期"}
Dim filter As String
For i As Integer = 0 To nms.Length -1
    If e.Form.Controls(nms(i)).Value IsNot Nothing Then
        If filter > "" Then
            filter = filter & " and "
        End If
        filter = filter & fds(i) & bjf(i) & sps(i) & e.Form.Controls(nms(i)).Value & sps(i)
    End If
Next
MessageBox.show(filter)
Tables("水质检测原始数据").filter = filter

e.form.controls("DateTimePicker1").Select() '返回输入口