我编写了一个小系统,其中有对数据库的统计运算,我用数据访问对象来解决的。数据库是每日更新的,有关键字“日期”,其他字段名有“取款”,“存款”等,现在要对文本框中指定的日期段在数据库中进行相应的统计求和,这里假设是计算“取款”数量并且假定指针已经定位到起始记录处
select case combo1.text
    case "取款"
    do while not db_r.eof and db_r.fields("日期").value<=cdate(text2.text)
      'text2.text为输入到文本框中的截止日期
      number=number+db_r.fields("取款").value   '求和
      db_r.movenext
    loop
    case  ....
end select
问题是这样的:当把截止日期(即text2.text)输入数值为数据库中的最后一条记录的日期时,程序运行会死!!!而除此之外,任何统计都可按照计划进行,谁知道问题出在哪里了?