مشکل عدم اجازه نوشتن داده در بانک (vb6,sq)

With cnn
.ConnectionString = Adodc1.ConnectionString
.CursorLocation = adUseClient
.mode = adModeReadWrite
.Open
End With
Set rst = cnn.Execute("Select * from stdnew;")
rst.MoveFirst
While Not rst.EOF

'fn = Adodc1.Recordset(0) & Adodc1.Recordset(3) & Adodc1.Recordset(12)
rst.Fields("idcode").Value = fn

' rst.MoveNext

Wend
Set cnn = Nothing
Set rst = Nothing

وقتی کد بالا رو اجرا میکنم پیغام میده که:چون recordset از updating ساپورت نمیکنه اجازه نوشتن در اون رو ندارید . قسمتی که با قرمز مشخص شده اشکال منه که نمیدونم چه جوری باید اجازه دسترسی داشته باشم.

Cursorlocation بذار aduseserver و mode رو هم بذار ShareExclusive

دوست عزیز به گفته شما عمل کردم ولی درست نشد .
من میخوام داخل LOOP دستوری بذارم که داخل تمامی فیلد مورد نظرم رشته خاصی را وارد کنه حتما مصر نیستم از rst.fields.value استفاده کنم ولی هر چیز که به ذهنم رسید با توجه به نمونه کدی که نوشتم به مشکل برخوردم .

من نمی دونم جرا تا حالا تو هیچ فروم برنامه نویسی هیچکس نتونست راهی برای مشکل بالا پیدا کنه ؟!!!!! یا کسی حوصله جواب دادن نداره یا تمامی متخصصین ما درگیر پروژه های بزرگی هستند !!!