کمک در مورد تغییر مقدار در بانک اطلاعاتی اکسس

سلام.
داخل ویژوال بیسیک دات نت یک فرم ایجاد کردم و داخل فرم یک text box و یک button قرار دادم. یه بانک اطلاعاتی اکسس هم دارم که توش یه فیلد به نام cash وجود داره. حالا میخوام با فشردن دکمه ، مقدار عددی که داخل text box قرار دادم با مقدار فعلی عدد cash بانک اطلاعاتی اکسس جمع بشه و حاصل دوباره در cash بانک اطلاعاتی قرار بگیره.

مقدار وارد شده در text box + مقدار فعلی فیلد cash = مقدار جدید فیلد cash

حالا سئوال من اینه که چی جوری باید این کار رو انجام بدم؟

مشخص نکردید که مقدار فعلی cash رو در چه ظرفی نگهداری کرده اید؟ آیا مقدار فعلی این فیلد در یک Currency Manager نگهداری میشه؟ در یک Data View یا Data Table نگهداری میشه؟ یا نه، این فیلد رو میخوای در همون لحظه مستقیما از دیتابیس بخونی و تغییرات رو اعمال کنی؟
به هر جهت من دو مثال میزنم امیدوارم روال کار دستتون بیاد.
مثال اول: استفاده از Currency Manager

کد:

---

dim newCash as integer= val(TextBox1.Text) + CurrencyManager.current("Cash")
DataAdapter.SelectCommand.CommandText = "UPDATE  MyTable SET  " & _
"Cash = @Cash  WHERE Cash =" & CurrencyManager.current("Cash")
DataAdapter.SelectCommand.Parameters.AddWithValue("@Cash", newCash)
Connection.Open()
DataAdapter.SelectCommand.ExecuteNonQuery()
Connection.Close()
DataAdapter.SelectCommand.Parameters.Clear()

---

مثال دوم: خواندن مستقیم از دیتابیس

کد:

---

DataAdapter.SelectCommand.CommandText = "SELECT Cash FROM MyTable WHERE Cash=Your Proviso"
Connection.Open()
dim newCash as integer= DataAdapter.SelectCommand.ExecuteScalar
Connection.Close()

newCash += val(TextBox1.Text)

DataAdapter.SelectCommand.CommandText = "UPDATE  MyTable SET  " & _
"Cash = @Cash  WHERE WHERE Cash=Your Proviso"
DataAdapter.SelectCommand.Parameters.AddWithValue("@Cash", newCash)
Connection.Open()
DataAdapter.SelectCommand.ExecuteNonQuery()
Connection.Close()
DataAdapter.SelectCommand.Parameters.Clear()

---

امیدوارم به جوابت رسیده باشی.