SQL = "SELECT * FROM Termin WHERE Datum = '" + Format(Sysdate, "ddmmYyyy") + "'" 
Set result = DB.OpenRecordset(SQL)

if result.eof = True and result.bof = true then
  'kein Datensatz
end if

Gruß
Dirk

--
?Get it right the first time