Split

Quando mando rodar minha aplicação ele da erro na seguinte linha (em negrito).

vTabela = Trim(rsAdo("TIPO"))

vDescr = sValor(1)

vUltimo = sValor(2)

vHora = sValor(3)

vCompra = sValor(4)

vVendas = sValor(5)

vData = sValor(6)

vVariacao = sValor(7)

vMaximo = sValor(8)

vMinimo = sValor(9)

Tem limite de array ?