急问大家这个问题怎么解决？（关于自动编号）

Question

我要修改数据库的记录。我的表的编号采用的是自动编号。运行时总是说“编号”字段无法更新。我的修改代码是：
rs.Open "select* from 产品信息表 where 编号= " & CLng(Val(Text1(0).Text)), cn, adOpenKeyset, adLockOptimistic
   for i=1 to 10
    rs.fields(i)=text1(i).text
     rs.update
我把编号的字段类型改为文本。用产品名做修改条件：
rs.Open "select* from 产品信息表 where 编号=' " & Text1(1).Text &"'", cn, adOpenKeyset, adLockOptimistic
   for i=1 to 10
    rs.fields(i)=text1(i).text
     rs.update
'text1(1)为产品的名称
这样修改就可以成功。
请问大家我要用编号作为修改条件该怎么修改上面的代码，因为除了编号其他的信息都有可能修改，该怎么操作呀？很急，大家帮帮忙！

Answer 1

在在下面这个循环中：
for i=1 to 10 
    rs.fields(i)=text1(i).text 
    rs.update 
next
如果编号是rs.fields(0),就不会被更新
你打开记录集的时，最好在select语句中指定字段，比如：
select 姓名,性别,年龄 form ......
这样循环可以从0 to rs.fields.count-1，不会更新到编号

Answer 2

确定你的SQL选出来的编号字段在第1个，也就是rs.fields(0)