下面代码在更换sql数据源后，运行提示\'#\'附近语法错误。

但是，加黑代码改成单引号后，就被注释掉了，应该怎样修改？谢谢

Dim txts() As String ={"类别","案号","开庭地点","书记员","法官助理","承办人"}
Dim times() As String ={"日期","日期1"}
Dim fls As new List(of String)
For i As Integer = 0  To txts.Length -1
    Dim str As String = e.Form.Controls(txts(i)).text
    If str = "" Then Continue For
    fls.Add(txts(i) & " like \'%" & str & "%\'") \'模糊查找
Next
For i As Integer = 0  To times.Length -1
    Dim str As String = e.Form.Controls(times(i)).value
    If str = "" Then Continue For
    If times(i).SubString(times(i).Length-1) = "1" Then \'如果尾部是 1 则是 小于等于
        fls.Add(times(i).SubString(0,times(i).Length-1) & "<=#" & str & "#")   \'SQL用 \' MDB用 #
    Else
        fls.Add(times(i) & ">=#" & str & "#")    \'SQL用 \' MDB用 #
    End If
Next