关于查询信息的问题，请高手解答，谢谢！

Question

我想将查询结果中的“有效期”这个字段的值和当前的日期比较后，如过期，则用label控件显示“提示用户信息”，否则不显示信息。
以下是代码：
rst.MoveFirst
Do While Not rst.EOF
   If rst.Fields("有效期").Value < Now Then
      lblMemo.Caption = "提示用户信息"
   Else
      lblMemo.Caption = ""
   End If
   rst.MoveNext
Loop
我的access数据库中如有2002-10-01和2006-10-01两个字段值
可运行后，为何label都显示同样的结果，请高手解答，谢谢！

Answer 1

rst.MoveFirst
Do While Not rst.EOF
   If Format(rst.Fields("有效期").Value, "yyyy-MM-dd")< Now Then
      lblMemo.Caption = "提示用户信息"
   Else
      lblMemo.Caption = ""
   End If
   rst.MoveNext
Loop