خطای 3251 ( آپدیت پایگاه داده )

[park]

با سلام
بنده از طریق این دستورات به پایگاه داده اکسس متصل شدم و با دستورات Sql به راحتی کار می کنم

کد:

Conn.Provider = "Microsoft.JET.OLEDB.4.0"
Conn.ConnectionString = App.Path + "\main.mdb"
Conn.CursorLocation = adUseClient
Conn.Open

cmd.ActiveConnection = Conn
Cmd.CommandType = adCmdText

Cmd.CommandText = "select * from T1"
Rst.CursorType = adOpenKeyset
Rst.CursorLocation = adUseClient

Set Rst = Cmd.Execute

اما اگر با دستورات Ado رکوردی را ویرایش کنم مانند این قطعه کد :

کد:

Rst.Fields!Total = Rst.Fields!Total - 1
Rst.Update

خطای ران تایم 3251 می گیرد که متن خطا به قرار زیر است
Current recordset dose not support Updating.This may be limitation of the provider or of the selected loketype
لطفا بنده را راهنمایی نمایید .
سپاس