Erro, Listbox ocultando a primeira linha de uma seleção do banco!

[rafaelmerini]

Estou fazendo uma seleção de uma base .mdb e jogando ela em um lisbox.

Porém ele está ocultando a primeira linha do banco.

Estou selecionando todos os contato_nome da tabela: "select contato_nome from contatos" e jogando no listbox

Do While r.Read 
texto = r.Item(0).ToString 
For i = 1 To r.FieldCount - 1 
texto &= vbTab & r.Item(i).ToString 
Next i 
lista_contatos.Items.Add(texto) 
Loop 

Porém ele não mostra o primeito contato da tabela, começa do segundo em diante. alguém consegue achar meu erro?

Tomei como referência o macoratti.net/vbn_ltb2.htm

Obrigado.

Editado Agosto 5, 2014 por rafaelmerini

[EnriqueNogueiraa]

Do While r.Read
texto = r.Item(0).ToString
For i = 0 To r.FieldCount - 1
texto &= vbTab & r.Item(i).ToString
Next i
lista_contatos.Items.Add(texto)
Loop

Banco de dados começam com a linha 0 não com a linha 1