Array e condizione

[orcim]

Ciao ho questo problema:

con una query tipo Union estraggo alcuni dati da un database access ed ottengo:

8
4
12
14
20
22
50
50
53
32
41
24

vorrei ad ognuno dei valori estratti assegnare un anno ed ho scritto così:

Dim a, b
a = Array("2000", "2000", "2001", "2001", "2002", "2002", "2003", "2003", "2004", "2004", "2005", "2005")
b = Array(8, 4, 12, 14, 20, 22, 50, 50, 53, 32, 41, 24)

e poi richiamo così:

Call MiaFunzione(a, b)

ma lo script restituisce:

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch

in corrispondenza di questa condizione:

if rs("ValoreAAA") = A then
    MiaVar = rs("ValoreAAA")
 else
    MiaVar = rs("ValoreAAA")
end if

Che c'è che non va????