Error handling 运行project时vb6代码出错

我的项目有个错误

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

代码：

有人能帮我理解为什么以及如何修复它吗？

替换

'%" And txtItemName.Text And "%'

与

---

请发布更大的代码片段，此错误意味着您试图将一种类型的数据推入另一种类型的数据-因此不匹配。Dim rs作为新ADODB。Recordset Dim myListitem作为ListItem lvListItem.ListItems.Clear rs。打开“从表1中选择*，其中ItemName类似“%”和txtItemName.Text&“%”，db，adOpenDynamic Do While Not rs.EOF Set myListitem=lvListItem.ListItems.Add（）myListitem.Text=rs！ItemCode myListitem.子项（1）=rs！ItemName myListitem.子项（2）=rs！ItemPrice myListitem.子项（3）=卢比！stock rs.MoveNext循环如果txtItemName.Text=”“，则为lvListItem.ListItems.Clear“txtStock.Text=”“txtQuan.Text=”“txtPrice.Text=”“End IfNow我收到此运行时错误“3709”：连接无法用于执行此操作。在此上下文中，它要么关闭，要么无效。这仍然会让我想到这一行代码：（代码中的db连接在哪里？选项Explicit Public rs As New ADODB.Recordset Public con As New ADODB.CONNECTIONSUB main（）con.ConnectionString=“Provider=Microsoft.Jet.OLEDB.4.0；Data Source=“&App.Path&”\itemdb；Persist Security Info=False”con.CursorLocation=adUseClient con.Open main.Show ItemRegisterLogin.Show 1 End Sub

'%" And txtItemName.Text And "%'

'%" & txtItemName.Text & "%'