VB.net code to bind data in a combo box in Windows Application

Let's say we have a DataTable with the values being filled as under

Public Function GetData() As DataTable


	Dim dt As New DataTable()



	'Add some columns

	dt.Columns.Add(New DataColumn("ImageID", GetType(Int32)))

	dt.Columns.Add(New DataColumn("ImageData", GetType(String)))



	'Add some rows



	'First Row

	Dim row1 As DataRow = dt.NewRow()

	row1("ImageID") = 1

	row1("ImageData") = "ImageData1"



	'Second Row

	Dim row2 As DataRow = dt.NewRow()

	row2("ImageID") = 11

	row2("ImageData") = "ImageData11"



	'Third Row

	Dim row3 As DataRow = dt.NewRow()

	row3("ImageID") = 12

	row3("ImageData") = "ImageData12"



	'Fourth Row

	Dim row4 As DataRow = dt.NewRow()

	row4("ImageID") = 15

	row4("ImageData") = "ImageData15"



	'Fifth Row

	Dim row5 As DataRow = dt.NewRow()

	row5("ImageID") = 18

	row5("ImageData") = "ImageData18"



	'Sixth Row

	Dim row6 As DataRow = dt.NewRow()

	row6("ImageID") = 19

	row6("ImageData") = "ImageData19"



	'Seventh Row

	Dim row7 As DataRow = dt.NewRow()

	row7("ImageID") = 21

	row7("ImageData") = "ImageData21"



	'Add the rows to the table

	dt.Rows.Add(row1)

	dt.Rows.Add(row2)

	dt.Rows.Add(row3)

	dt.Rows.Add(row4)

	dt.Rows.Add(row5)

	dt.Rows.Add(row6)

	dt.Rows.Add(row7)



	'return the table

	Return dt

End Function

Then fill into the combobox as under

Dim dt As DataTable = GetData()

comboBox1.Datasource = dt 'set the combobox data source
comboBox1.DisplayMember = ImageID ' Display column
comboBox1.ValueMember = ImageData ' Value member column