Boa tarde! A todos.

Estou com um problema no código no listview vba, e este é novo para mim.
Alguém poderia me ajudar? Pois está gerando o erro "Erro de execução 6 Estouro"

 
      Dim i As Integer
        For i = 0 To banco.RecordCount - 1
            If Not IsNull(banco(0)) Then
                .ListItems.Add 1, , banco(0)
                .ListItems(1).ListSubItems.Add 1, , banco(1)
                .ListItems(1).ListSubItems.Add 2, , banco(2)
                [color=#FF0000].ListItems(1).ListSubItems.Add 3, , banco(3)[/color]
                .ListItems(1).ListSubItems.Add 4, , banco(4)
                .ListItems(1).ListSubItems.Add 5, , banco(5)
                .ListItems(1).ListSubItems.Add 6, , banco(6)
                .ListItems(1).ListSubItems.Add 7, , banco(7)
                .ListItems(1).ListSubItems.Add 8, , banco(8)
                .ListItems(1).ListSubItems.Add 9, , banco(9)
                .ListItems(1).ListSubItems.Add 10, , banco(10)
                .ListItems(1).ListSubItems.Add 11, , banco(11)
                .ListItems(1).ListSubItems.Add 12, , banco(12)
                .ListItems(1).ListSubItems.Add 13, , banco(13)
                .ListItems(1).ListSubItems.Add 14, , banco(14)
                .ListItems(1).ListSubItems.Add 15, , banco(15)
                .ListItems(1).ListSubItems.Add 16, , banco(16)
                .ListItems(1).ListSubItems.Add 17, , banco(17)
                .ListItems(1).ListSubItems.Add 18, , banco(18)
                .ListItems(1).ListSubItems.Add 19, , banco(19)
                .ListItems(1).ListSubItems.Add 20, , banco(20)
                .ListItems(1).ListSubItems.Add 21, , banco(21)
                .ListItems(1).ListSubItems.Add 22, , banco(22)
                .ListItems(1).ListSubItems.Add 23, , banco(23)
                .ListItems(1).ListSubItems.Add 24, , banco(24)
                .ListItems(1).ListSubItems.Add 25, , banco(25)
                .ListItems(1).ListSubItems.Add 26, , banco(26)
                .ListItems(1).ListSubItems.Add 27, , banco(27)
                .ListItems(1).ListSubItems.Add 28, , banco(28)
                .ListItems(1).ListSubItems.Add 29, , banco(29)
                .ListItems(1).ListSubItems.Add 30, , banco(30)
                .ListItems(1).ListSubItems.Add 31, , banco(31)
                .ListItems(1).ListSubItems.Add 32, , banco(32)
                .ListItems(1).ListSubItems.Add 33, , banco(33)
                .ListItems(1).ListSubItems.Add 34, , banco(34)
                .ListItems(1).ListSubItems.Add 35, , banco(35)
                
            End If
            banco.MoveNext
        Next i
        Set banco = Nothing
        cx.Desconectar
    End With

Desde já agradeço e fiquem com Deus.

Grato.