急，VB中如何更新表内的字段?
我现在程序的表名为byk,数据库名为data.mdb,联接对象为database.记录集为rsbyk
现在我想给表byk内的zsbh这个字段编号,编号可以为自然顺利,长度要6位,这6位要与我前面的固定字符串相联接.请问这段代码如何写?
请各位高手不吝赐教.

[解决办法]
更正一下：

dim i as integer
Dim rsupdate As New Recordset
rsupdate.CursorLocation = adUseServer
rsupdate.Open "select * from byk ", database, adOpenKeyset, adLockOptimistic, adCmdText
While not rsupdate.EOF
i=i+1
strzsbh= "2004 " & format(i, "000000 ")
rsupdate.Fields( "zsbh ").Value = strzsbh
rsupdate.update
rsupdate.movenext
wend