Try:
Using con As New SqlConnection(strConnect)
con.Open()
Using com As New SqlCommand("UPDATE tblitem SET [quantity]=[quantity] - @QU WHERE itemname=@IN", con)
com.Parameters.AddWithValue("@QU", myTextBox.Text)
com.Parameters.AddWithValue("@IN", "apple")
com.ExecuteNonQuery()
End Using
End Using