Учет снимков экрана

Public Sub FindFiles()
Dim path, s, d, t, p
dim db as DAO.Recordset, rst as dao.recordset
db=currentdb
path="Путь_к_папке_с_файлами"
p=Dateadd("n", -60, Now) 'Начальное значение интервала времени
t="*" & format(Now-p,"yyyy-mm-dd-hh*.jpg") 'Поисковый шаблон
d=Dir(path & "\*" & t)
set rst=db.openrecordset("select * from Таблица where [ИмяПоляСсылкаНаФайл] like '*'" & t)
Do until d=""
  rst.findfirst "ИмяПоляСсылкаНаФайл='" & d
  If rst.nomatch Then 'Такого файла не найдено, пишем в таблицу
    rst.addnew
    rst![ИмяПоляСсылкаНаФайл]=path & "\" & d
    rst.update
    d=dir
loop
End Sub

rst.findfirst "ИмяПоляСсылкаНаФайл='" & d & "'"

Do until d=""
  rst.findfirst "ИмяПоляСсылкаНаФайл='" & d & "'"
  If rst.nomatch Then 'Такого файла не найдено, пишем в таблицу
    rst.addnew
    rst![ИмяПоляСсылкаНаФайл]=path & "\" & d
    rst.update
  End If
  d=dir
loop