Confronto Data: errore

[vonkranz]

Set db = OpenDatabase("C:\Tati\Bar.mdb")
  sql = "select * from ScadenzarioFatt where ScadFatt >= # " & Format(Date,"yyyy/mm/dd")   & "#  "
    Set rs = db.OpenRecordset(sql)