ListBox

Galera preciso de uma ajuda

Eu fiz um listbox que exibia 10 dados, ao colocar mais uma coluna (dado) deu um erro de VALOR DE PROPRIEDADE INVÀLIDO. Sendo que o dado que coloquei está certo, parece que ele não está aceitando mais de 10 colunas.

Veja o código

Private Sub PesquisarCodigos()

Dim DB As Database

Dim RS As Recordset

Dim i, J

i = 0

J = 1

Set DB = OpenDatabase(ThisWorkbook.Path & "\controle de Estoque.xls", False, False, "Excel 8.0")

Me.ListBox1.Clear

Set RS = DB.OpenRecordset("SELECT FROM [MOVIMENTO$] WHERE [DATA] LIKE '" & UCase(Me.TextBox6) & "' ORDER BY CODIGO, DISCRIMINAÇÃO", dbOpenSnapshot)

Do Until RS.EOF

ListBox1.AddItem

ListBox1.List(i, 0) = RS("DATA")

ListBox1.List(i, 1) = RS("CODIGO")

ListBox1.List(i, 2) = RS("DISCRIMINAÇÃO")

ListBox1.List(i, 3) = RS("QUANTIDADE")

ListBox1.List(i, 4) = RS("DESTINO")

ListBox1.List(i, 5) = Format(RS("UNITARIO"), "#,##0.00")

ListBox1.List(i, 6) = RS("ESTANTE")

ListBox1.List(i, 7) = RS("PRATELEIRA")

ListBox1.List(i, 8) = RS("STATUS")

ListBox1.List(i, 9) = RS("LANÇAMENTO")

ListBox1.List(i, 10) = RS("UNIDADE")

i = i + 1

RS.MoveNext

Loop

Me.ListBox1.TextColumn = 11

DB.Close

End Sub

Obrigado

Alex