1、改一下代码
If dr2 IsNot Nothing AndAlso cdate(dr2("直通车日期")).date = dt.date Then
2、是否你的数据没有保存,导致sqlfind找不到数据?