Error in advanced filters

Hello i am using a advanced filter to extract from a exchange rate database the ones that are only between the time interval i need.

In the criteria range i wrote ">14-01-2010" and, althought the advanced filter executed in the ribbon works just fine, the code returns no value.

I am using the following code:

Range("A1:B1").Select
Range(Selection, Selection.End(xlDown)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("apoio").Range("A4:C5"), Unique:=False

It doesn´t really make any sense, can anyone help me figure out what is wrong in the code?

Thanks