Invalid argument FilterType

[vidjeane]

Below is the part of my code where it returns error while selection.

Dim ft1(0 To 6)
Dim fd1(0 To 6)
ft1(0) = -4: fd1(0) = "<AND"
ft1(1) = 0: fd1(1) = "INSERT"
ft1(2) = -4: fd1(2) = "<OR"
ft1(3) = 2: fd1(3) = "XREF*"
ft1(4) = 2: fd1(4) = "Xref*"
ft1(5) = -4: fd1(5) = "OR>"
ft1(6) = -4: fd1(6) = "AND>"
mset.Select acSelectionSetAll, , , ft1, fd1

Suggestions Pls.

[vidjeane]

Dim ft1() as Integer