用ADO访问修改SQLserver数据库,无法更改指定数据集

我的表里有100个班级的学生信息,分别有姓名,年龄,,班级,家庭住址等字段,假设为name,age,class,address我现在想修改3班,叫李明的学生的家庭地址,先用select 取得数据集,再用update修改,可得到的结果很奇怪,100个班级中所有叫李明的学生的家庭地址都被改动了.不知道怎么回事.strsql = "select name,age,class,address from students where class=3"rs2.Open strsql, ADO_Connection, adOpenKeyset, adLockOptimistic, adCmdTextDo While Not rs2.EOF  if rs(0)="李明"
    rs2(3) = "北京大关小区118号"
  end if

rs2.MoveNextLooprs2.Close