总连续天数。我怎么知道Date + 1是否存在？

Question

创建一个表格，其中包含每天缺勤的日期和缺勤的类型。我如何找到缺席的连续天总数，例如疾病。

我尝试过使用DCount，但是10条记录也可以，但是400条记录却非常慢：

sSQL = "[Employee Number] = " & nP & " And [Leave] = """ & lve & """ And [Date_Leave] = #" & Format(DateAdd("d", n, d1), "yyyy-mm-dd") & "#"
If Nz(DCount("*", "Employee_Data", sSQL)) = 0 Then
            nbJ = n

如何用DAO代码替换DCount？