Exibir registros VB.NET

Boa noite pessoal!

Estou començando a aprender um pouco de VB.NET e estou tentando exibir os registros de uma tabela, até aí tudo bem e consigo, mas minha tabela ( ACCESS ) tem 21 registros, e só são exibidos 20.

Algué pode me dizer o que deve estar errado.

Segue parte do cod:

conn.Open()

 mycmd = New OleDbCommand("Select * from CliBD order by NOME", conn)

 mydr = mycmd.ExecuteReader
 mydr.Read()

 ListBox1.Items.Clear()

 Try
 'exibe os dados : nome da empresa(1) , nome do contato(2)
 While (mydr.Read)

 ListBox1.Items.Add(mydr.Item(1) & " ( " & mydr.Item(2) & " )" & " ( " & mydr.Item(3) & " )")
 End While
 Finally
 mydr.Close()
 End Try
 conn.Close()