Subscrito fora do intervalo

[Eduardo Gonçalves]

Olá camaradas... Estou iniciando em ASP e estou tendo alguns problemas que creio que são básicos... É o seguinte... ao executar uma página com o código abaixo

tb.Open sql, bd     
    if tb.RecordCount>0 then
        Dim i
        Dim id(10,10)
        Dim thumb(10,10)
        Dim titulo(10,10)
        i = 1 
        while not tb.EOF
            Set id(i) = tb.Fields("id")
            Set thumb(i) = tb.Fields("tumb")
            Set titulo(i) = tb.Fields("titulo")
            Set i = i + 1
        wend
    end if

Está me retornando o erro: Erro de tempo de execução do Microsoft VBScript erro '800a0009' Subscrito fora do intervalo Para a linha: Set id(i) = tb.Fields("id") Só que se eu fizer desta maneira

tb.Open sql, bd     
    if tb.RecordCount>0 then
        Dim i
        Dim id(10,10)
        Dim thumb(10,10)
        Dim titulo(10,10)
        Set i = 1 
        while not tb.EOF
            Set id(i) = tb.Fields("id")
            Set thumb(i) = tb.Fields("tumb")
            Set titulo(i) = tb.Fields("titulo")
            Set i = i + 1
        wend
    end if

Me retorna o erro:

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

Objeto necessário: '[number: 1]'

Para a linha:

Set i = 1

alguma sugestão???

Grato desde já...

Editado Janeiro 13, 2009 por Eduardo Gonçalves

[Rafael Spilki]

As consultas que criam os recordsets estão corretas?

Na dúvida poste o código completo...

[]'s Rafael Spilki