[RESOLVED] Adding records to combobox

[Radjesh Klauke]

I'm trying to read the records into a combobox from the database without any success. There is no problem with the connection, but something seems wrong with my coding. Perhaps someone could tell me what I'm doing wrong.

Dim reader_combo_plaats As SqlCeDataReader
Dim cmd_Plaats As New SqlCeCommand("SELECT DISTINCT plaats FROM beslagdata", connStr)
 
reader_combo_plaats = cmd_Plaats.ExecuteReader
While reader_combo_plaats.Read
    mdi_beslag.ts_cbo_plaats.Items.Add(reader.Item("plaats").ToString)  ' <<< here is the problem
End While