یه مشکل در آپدیت بانک اطلاعاتی

سلام.من دستور زیر را توی وی بی دات نت نوشته ام. ولی به من پیام میدهد که دستور آپدیت را اشتباه می نویسم. در ضمن من از اکسس 2007 برای بانک خودم استفاده کرده ام. داده های بانک اطلاعاتی را هم چک کرده ام و درست است.
لطفا من را راهنمایی کنید. ممنون


Dim connstr AsString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb"
Dim dt AsNew DataTable()
Dim commstr AsString = "UPDATE data SET clock='111' , hour= '222' , min='333' , sec= '444' , gheymatekol= '555' where id='1'"
Dim DataAdapter AsNew OleDb.OleDbDataAdapter(commstr, connstr)
DataAdapter.Fill(dt)

نکته :اگر از فرمت اصلی خود ACCESS 2007 استفاده کردی باید Connection String رو اینطوری تغییر بدی

کد:

---

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=db.accdb"

---

اگر هم از فرمت 2003 استفاده کردی درسته

اشتباهات :
اگر فیلدهای clock,hour,min,sec,gheymatekol از نو Text هستند درسته در غیر اینصورت نباید از کوتیشن ' استفاده کنی
یعنی به جای
clock='111'
باید از clock=111 استفاده کنی
و دستور Where id='1' باید WHERE id=1 باشه

در کل سورس رو اینجوری بنویس

کد:

---


Dim connstr AsString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb"
Dim strSelect AsString = "SELECT * FROM Data"
Dim strUPDATE AsString = "UPDATE data SET clock='111' , hour= '222' , min='333' , sec= '444' , gheymatekol= '555' where id=1"
Dim con AsNew OleDbConnection(connstr)
'/////////////////
Dim CmdUpdate As OleDbCommand = New OleDbCommand(strUPDATE, con)
con.Open()
CmdUpdate.ExecuteNonQuery()
con.Close()
'//////////////////
Dim dt AsNew DataTable
Dim DataAdapter AsNew OleDbDataAdapter(strSelect, con)
DataAdapter.Fill(dt)


---