do while not rs.eof
rs("IsChecked")=0
rs.update
rs.movenext
loopdo while not rs1.EOF
rs1("isChecked")=1
rs.update
rs1.MoveNext
loop
rs("IsChecked")=0
rs.update
rs.movenext
loopdo while not rs1.EOF
rs1("isChecked")=1
rs.update
rs1.MoveNext
loop
rs1("isChecked")=1
rs1.update
rs1.MoveNext
loop你这样就可以啊~~不要循环。
sql1="update vote set IsChecked = 1 where ID = " & Checked
conn.execute(sql1)