从accesse中取出当天的记录
表[Attendance]                                                                              
       =======================================          
       [Id]                                                         [PassportId]                                       [Time]                                  
             1                                                                                 1                                          2005-06-20   7:53:00 
             2                                                                                 2                                          2005-06-21   10:06:26 
             3                                                                                 4                                          2005-06-21   10:07:48    
------解决方案--------------------不好意思,还以为是SQL SERVER, ACCESS 用now()
------解决方案--------------------sql= "......... where cdate(time)=# "&date& "# " 
------解决方案--------------------帮顶