Dim list As New DataTable
 list.Columns.Add(New DataColumn("Display", GetType(String)))
 list.Columns.Add(New DataColumn("Id", GetType(String)))
 list.Rows.Add(list.NewRow())
 list.Rows.Add(list.NewRow())
 list.Rows(0)(0) = "Yes"
 list.Rows(0)(1) = "Y"
 list.Rows(1)(0) = "No"
 list.Rows(1)(1) = "N"

 Me.cmb.DataSource = list
 Me.cmb.DisplayMember = "Display"
 Me.cmb.ValueMember = "Id"
 

 Dim list As New DataTable
 list.Columns.Add(New DataColumn("Display", GetType(String)))
 list.Columns.Add(New DataColumn("Id", GetType(String)))
 list.Rows.Add(list.NewRow())
 list.Rows.Add(list.NewRow())
 list.Rows(0)(0) = "Yes"
 list.Rows(0)(1) = "Y"
 list.Rows(1)(0) = "No"
 list.Rows(1)(1) = "N"

 Me.drpYesNo.DataSource = list
 Me.drpYesNo.DataTextField = "Display"
 Me.drpYesNo.DataValueField = "Id"
 Me.drpYesNo.DataBind()