求救 求救

求救 求救 十万火急
Private Sub cmdAdd_Click()
 
  If txtNewPWD(1) <> txtNewPWD(0) Then
  MsgBox "两次输入的新口令必须相等！", vbExclamation, "修改口令"
  txtNewPWD(0).SetFocus
  txtNewPWD(0).SelStart = 0
  txtNewPWD(0).SelLength = Len(txtNewPWD(0))
  Else '修改原来的口令
  With Drug_Store.rsSysUsers
  .Open
  .Find "编号='" & CurrentUserNumber & "'"
  .Fields("口令") = Trim(txtNewPWD(0))
  
  .Update
  End With
  MsgBox "口令以被成功修改！", vbInformation, "修改口令"
  End If
   
End Sub



请各位大虾帮帮忙！！
在线——————————————————————————


[解决办法]
应该是 find时没找到，debug 下 "编号='" & CurrentUserNumber & "'"