Definering af Arrays

Hej

Hvorfor må jeg ikke det her:

if league = "Premier League" then
    strSQL = "SELECT team FROM premierleague"
    set rs = conn.execute(strSQL)
    Dim strFormArray(19)
elseif league = "gerErsteBundesliga" then
    strSQL = "SELECT team FROM gerErsteBundesliga"
    set rs = conn.execute(strSQL)
    Dim strFormArray(17)
end if

den kommer med en fejl i linien: "Dim strFormArray(17)" - der hedder: "name redefined"