Set rs = db.OpenRecordset( "select * from дата as t order by t.дата" ) 

Public Function ABD() As Date 
'кстати обязательно ли делать функцию общедоступной?
Dim db As DAO.Database 
Dim rs As DAO.Recordset 

Set db = DBEngine(0)(0)

Set rs = db.OpenRecordset("select Тop 1 t.дата from дата as t order by t.дата") 

if (rs.eof and rs.bof) then
'нет записей
'присвоим дате самое минимальное значение или нечто другое согласно твоей 
'логике работы программы
  ABD=cdate( 1 ) 'даст дату  31 . 12 . 1899  
else
  ABD = rs.Fields( "Дата" ).Value
end if

rs.close : set rs=Nothing
db.close : set db=Nothing

End Function