Contoh Kode Memasukkan data dari table ke combo box di vb.net

 Bagaimana memasukkan sebuah data dari sebuah table ke combobox pada vb.net??
contoh kode sebagai Jawabannya adalah sebagai berikut,:

pada kasus ini anggap kita ingin menampilkan nomor PO ke Combobox.


Sub Sort_Cb()
        'Menampilkan PO Number pada ComboBox
        'Berdasarkan status= 0 (open)
        CbPO.Items.Clear()
        CbPO.Items.Add("- PILIH -")
        objCommand = MyConnection.open.CreateCommand
        objCommand.CommandText = ("SELECT  PO_No From " & _
        " [Total_PO] where Status =0 " & _
        "  Order by PO_No asc;")
        objdatareader = objCommand.ExecuteReader
        While objdatareader.Read
            CbPO.Items.Add(objdatareader.Item("PO_No"))
        End While
        MyConnection.close()
        CbPO.SelectedIndex = 0
    End Sub