运行项目时vb6代码出错

Question

我的项目中出现错误

  

运行时错误'13'与vb6中的此代码类型不匹配

代码：

rs.Open "select * from Table1 where ItemName like '%" And txtItemName.Text And "%'", con, adOpenDynamic

有人可以帮我理解为什么以及如何解决它？

Answer 1

替换

'%" And txtItemName.Text And "%'

与

'%" & txtItemName.Text & "%'