'Declare the settings
Type dbFilters (FieldName As String, Comparator As String, FilterValue As String, Xor As String)
Private Filters(4) As dbFilters
Filters(0).Initialize
Filters(1).Initialize
Filters(2).Initialize
Filters(3).Initialize
'Set or change the values
Filters(0).FieldName = "field name"
Filters(0).Comparator = "="
Filters(0).FilterValue = ">"
Filters(0).Xor = "And"