主题：“=”运算符后缺少操作数

做了一个目录树用于输入：

Select Case e.Node.Level
    Case 0,1,2,3  '如果不是最后一层节点
        Return '则返回
    Case Else
       
        Dim Vals() As String = e.Node.FullPath.Split("\")
        Dim Filter As String = "[省份] = '" & Vals(0) & "' And [医院名称] = '" & Vals(1) & "'And [安装科室] = '" & Vals(2) & "' And [设备型号] = "' & Vals(3) & "' And [设备序列号] = "' & Vals(4) & "'"
        Dim dr As DataRow =  DataTables("设备安装表").Find(Filter)
        Dim r As Row =  Tables("维修维护表").Current
        r("省份") = dr("省份")
        r("医院名称") = dr("医院名称")
        r("安装科室") = dr("安装科室")
        r("设备型号") = dr("设备型号")
        r("设备序列号") = dr("设备序列号")
        e.Form.Close()
       
End Select

双击最后一个节点“设备序列号”时，提示“=”运算符后缺少操作数，检查好几遍不知道问题在哪？

   Dim Filter As String = "[省份] = '" & Vals(0) & "' And [医院名称] = '" & Vals(1) & "'And [安装科室] = '" & Vals(2) & "' And [设备型号] = '" & Vals(3) & "' And [设备序列号] = '" & Vals(4) & "'"

已解决，原来是这两处写错了。