Trebaće ti referenca na DAO 3.6, zatim napravi Query
Code:
Dim RS As Recordset
StrSQL = "Select Tabela.* From Tabela Where Datum = CLng(Now())"
Set RS = CurrentDb.OpenRecordset(StrSQL)
Onda na forumu pretraži poruke od Trtka, on je jedno 16 puta pisao takav kod.
Ozbiljan i odgovoran mladić