Dlookup problem

Jeg har min Access-Frontend op mod min SQl-DB (2000).
men når jeg vil lave en dlookup mod en funktion får jeg fejl,
min dlookup:
Dim d As Date
d = Date
CurdagligID = DLookup("id", "Fnt_check_daglig_Afh1", "fid=" & CurID And "idato<=" & d And "sdato>=" & d)

min funktion:
SELECT TOP 100 PERCENT FID, CAST(CONVERT(datetime, I_dato, 112) AS datetime) AS idato, CAST(CONVERT(datetime, S_dato, 112) AS datetime) AS sdato,
              Id
FROM  dbo.Daglig_afhentning
ORDER BY FID, LEFT(I_dato, 8) DESC