一般,拼接sql语句的时候,都要把单引号处理一下
Dim strflt As String = " 进出日期 > '2016-9-30'"
strflt = strflt.Replace("'", "''")