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.