However you have not written the error which is coming but still after watching your code i found following suspicious line which may cause in not updation
dt.Rows(0)("OnHand") = dt.Rows(0)("OnHand") - rs.Tables("TPlt").Rows(0).Item("FullQty") - rs.Tables("TPlt").Rows(0).Item("LsQty")
modify it as following
dt.Rows(0)("OnHand") = val(dt.Rows(0)("OnHand")) - val(rs.Tables("TPlt").Rows(0).Item("FullQty")) - val(rs.Tables("TPlt").Rows(0).Item("LsQty"))
i hope it works.....