Problema em lista itens do banco em uma listibox

[rafaelmerini 0]

Boa noite pessoal.

Estou com um probleminha em listar os itens de um banco de dados (access) em uma listbox ou combobox.

Por exemplo, se no banco tenho 12 itens para mostrar, quando eu jogo para o listbox ou combobox ele joga apenas 11.

Sempre está ocultando um dos registros.

Estou usando o seguinte código:

Private Sub atualizaosestados()
        Me.cadcli_estado.Items.Clear()
        Dim con As OleDbConnection
        Dim sql As String
        Str = "Provider=Microsoft.Jet.oledb.4.0;Data Source= " & form_admpainel.lbl_dblocal.Text & "db_locais.mdb;"
        con = New OleDbConnection(Str)
        sql = "select uf_abrev from estados"
        Dim cmd As OleDbCommand
        Dim r As OleDbDataReader
        Try
            con.Open()
            cmd = New OleDbCommand(sql, con)
            r = cmd.ExecuteReader()
            If r.Read Then
                Do While r.Read
                    Me.cadcli_estado.Items.Add(r.GetValue(0).ToString())
                Loop
            Else
                MsgBox("Erro ao carregar", vbCritical, "Erro")
            End If
            con.Close()
        Catch ex As OleDbException
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Oledb Error")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")
        End Try
    End Sub

Se puderem me ajudar, fico muito grato.

 

Ótima semana a todos!

[KhaosDoctor 242]

Faça um teste unitário, selecione todos os registros e também uma linha em branco, veja se aparece tudo.