El mensaje anterior esta mal, no es DAO.
set Mdb=dbengine.workspaces(0).opendatabase("c:Biblio")
set mrs=Mdb.openrecordset("Select * from Ntabla where CampoFecha=#03/01/2000#",dbopenDynaset)
'Y para mostrar los campos
if mrs.nomatch ' si no hay ninguno
exit sub
else
while not mrs.eof
debug.print mrs!NombreCampo1 & _
vbcrlf & mrs!NombreCampo2 ' Etc
wend
Espero que te haya servido de ayuda
un saludo