Как сделать продажу по существующему количеству и отклонить количество, если оно недоступно (SQL и VB)

---

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

Что я уже пробовал:

Try
If txtquantity.text = Nothing then
Dim ct as string = "select stockavailable from stocks where barcode='" and stockavailable <=0"
ConnDB()
Cmd = New MysqlCommand(SQL, conn)
Dr=cmd.execute reader()

If Dr.read = true then
If e.keycode = keys.enter then
E.suppresskeypress= true
Addtolist()
Total cost+= total price
Lbltotalcost.text = Format(totalcost, "0.00")

Txtquantity. Clear()
Txtsearch.focus()
End if
End if
Else
Reset()
End if
Catch ex as exception
Messagebox.show(" requested quantity is not available!!! ", " input error" messageboxbuttons. OK, messageboxicon.error)
Finally
Cmd.dispose()
Conn.close()
End try

---