一执行后就不动了??求解

Question

sql = "select * from information"
  rs_settlement.Open sql, conn, adOpenKeyset, adLockPessimistic
  While (rs_settlement.EOF = False)
    If (Trim(rs_settlement.Fields(1)) = Trim(txtcar.Text)) And (rs_settlement.Fields(6) = 0) Then
        rs_settlement.Fields(5) = Now()
        rs_settlement.Fields(9) = usermi
        rs_settlement.Update
        var = rs_settlement.Fields(3)
        time = rs_settlement.Fields(4)
        time1 = rs_settlement.Fields(5)
        var1 = DateDiff("m", time, time1)
     Else
           rs_settlement.MoveNext
     End If
   Wend执行后.也就没有反应了.不知道怎么回事??麻烦看一下是什么问题??

Answer 1

While (rs_settlement.EOF = False)
If (Trim(rs_settlement.Fields(1)) = Trim(txtcar.Text)) And (rs_settlement.Fields(6) = 0) Then
rs_settlement.Fields(5) = Now()
rs_settlement.Fields(9) = usermi
rs_settlement.Update
var = rs_settlement.Fields(3)
time = rs_settlement.Fields(4)
time1 = rs_settlement.Fields(5)
var1 = DateDiff("m", time, time1)
end if
rs_settlement.MoveNext

Answer 2

修改 
sql = "select * from information where 字段2= '" & Trim(txtcar.Text)) &"' and 字段7=0"
其中字段2,7 你要修改为真实的字段名

Answer 3

难道意思是IF条件满足时,只执行一次,就跳出循环?那可以用GOTO语句啊.如果你用DO WHILE语句,那可以用EXIT DO语句.偶是菜鸟,不对大家别扔我.hoho