Vb6 列表框添加项

有人能帮我吗？如果库存数量小于15，如何在列表框中显示药品

我试过这个代码，但不起作用

Private Sub List1_Click()
If Text3.Text <= 15 And Text3.Text > 1 Then List1.AddItem Adodc1.Recordset("MedicineName")
end sub

看来我的代码错了。我不知道下一步该怎么办。请帮忙

以下是我在datagrid中的代码：

将文本与数字进行比较时，最好将字符串转换为数字：

If Val(Text3.Text) <= 15 And Val(Text3.Text) > 1 Then List1.AddItem Adodc1.Recordset("MedicineName")

---

只是想澄清一下，若列表框中的项目小于15，但您的代码小于或等于15，那个么您说过要在列表框中显示该项目。你有没有尝试过单步执行你的代码？

If Val(Text3.Text) <= 15 And Val(Text3.Text) > 1 Then List1.AddItem Adodc1.Recordset("MedicineName")