listbox vullen met datareader

[robluttge]

Goedemorgen!

Ik probeer zoals de titel aangeeft een listbox te vullen met gegevens uit een database en heb verschillende codes geprobeerd. Zie hieronder de laatste poging. Ik krijg alleen niets te zien in de listbox (geen errors oid). In debug mode lijkt het wel of de hele while end while loop overgeslagen wordt. Weet iemand wat ik over het hoofd zie?

Alvast bedankt!

Rob

    Private Sub Btn_Detail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Detail.Click

        Dim conn As New SqlCeConnection(My.Settings.cs_kookclub)
        conn.Open()
        Dim sql As String = "SELECT * FROM leden ORDER BY Achternaam ASC"
        Dim cmd = New SqlCeCommand(sql, conn)
        Dim dr As SqlCeDataReader = cmd.ExecuteReader

        While (dr.Read())
            LB_Ledenlijst.Items.Add(dr("Achternaam").ToString)
        End While

    End Sub