Мои акции находятся внутри msgbox, но не обновляют его шоу old stock

---

у меня есть запас столом и окном форма для покупки товара просто предмет купли-продажи, чтобы показать функцию MsgBox показывают складе и обновление запаса стол, то второй раз купить товар и MsgBox не обновить старый запас показать это проблема

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

Dim qt_str как строка
Если Кон.Состояние = ConnectionState.Тогда Закрыто
против.Открыть()
Конец, Если

qtds.Четкий()
qt_str = "выберите кол-во Из part_stock, где part_name='" & partBox2.Text & "'"
qtAdapter = новый OleDbDataAdapter(qt_str, con)
qtAdapter.Заполнение(qtds, "qty")
MsgBox("доступный запас" и qtds.Таблицы(0).строки(0).товар("кол-во"))
против.Закрывать()

---