ListBox Добавить элемент

Question

Может кто-нибудь мне помочь? Как отображать лекарства в списке, если количество запасов меньше 15?

Я пробовал этот код, но он не работает.

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

Кажется, что мой код является неправильным. Я не знаю, что делать дальше. Пожалуйста, помогите

Вот мой код в DataGrid:

Private Sub DataGrid2_Click() 
With frm_ScrollUP1 

.Text3.Text = Adodc2.Recordset.Fields("StockQuantity") 
    .Combo1.Text = Adodc2.Recordset.Fields("medicinename") 
If Text3.Text < 0 Then 
MsgBox Combo1 & " stock is not enough for the quantity you need!", vbExclamation, " SORRY..." 
Text3.Text = "" 
Exit Sub 
End If 

If Text3.Text <= 15 And Text3.Text > 1 Then 
MsgBox "Please add more stocks of " & Combo1 & " !", vbExclamation, " Warning!" 
ElseIf Text3.Text = 0 Then 
MsgBox Combo1 & " is Empty!", vbCritical, " Warning!" 
End If 


Combo1 = "Medicine Brand" 
Text2.Text = "" 
Text3.Text = "" 
Combo2 = "---MMMM----" 
Combo3 = "-DD-" 
Combo4 = "---YYYY---" 
Text2.Enabled = False 
End With 

end sub 

Answer 1

при сравнении Text с номером, его лучше преобразовать строку в номер:

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