Menampilkan Isi Field Tabel Ke Combo Box (Vb.Net 2008)

    Sub kombo_pell()

        Cmd = New OdbcCommand("SELECT kd_pell FROM pelanggan", Conn)

        Rd = Cmd.ExecuteReader

        Do While Rd.Read

            cmb_kd_pell.Items.Add(Rd.Item(0))

        Loop

    End Sub