Range("Database").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("Criteria")

Uhm.... how can I specify the criteriarange in order to match the listbox selection???
I'm not very good in VBA language...