My stock is insiding the msgbox, but is not refreshing his show old stock

See more:

Kinect

i have a stock table and a window form to purchase item just purchase item to show msgbox show stock and update stock table then second time purchase item and msgbox not refresh old stock is show this is problem

What I have tried:

Dim qt_str As String
If con.State = ConnectionState.Closed Then
con.Open()
End If

qtds.Clear()
qt_str = "select qty from part_stock where part_name='" & partBox2.Text & "'"
qtAdapter = New OleDbDataAdapter(qt_str, con)
qtAdapter.Fill(qtds, "qty")
MsgBox("Available stock " & qtds.Tables(0).Rows(0).Item("qty"))
con.Close()