ازاي املأ الكمبو بوكس بأمتر من حقل

Dim dsp As New Data.DataSet

BindingSource18.DataSource = Cn.ConnectionString

Cmd.CommandText = "select name_mida from resv_madia"

Da.SelectCommand = Cmd

Cmd.Connection = Cn

Da.Fill(dsp, "resv_madia")

BindingSource18.DataSource = dsp.Tables("resv_madia")

ComboBox7.DisplayMember = "name_mida"

ComboBox7.ValueMember = "name_mida"

ComboBox7.DataSource = BindingSource18

ده كود انا بملأ الكمبو بحقل واحد

انا عايز املا الكمبو بأكتر كن حقل

ارجو المساعدة

ده الكود اللي عايز اعمله ساعدوني فيه

Dim dso As New Data.DataSet

BindingSource19.DataSource = Cn.ConnectionString

Cmd.CommandText = "select name_work1,name_work2,name_work3,name_work4,name_work5,name_work6,name_work7,name_work8,name_work9,name_work10,name_work11,name_work12,name_work13,name_work14,name_work15 from resv_madia"

Da.SelectCommand = Cmd

Cmd.Connection = Cn

Da.Fill(dso, "resv_madia")

BindingSource19.DataSource = dso.Tables("resv_madia")

ComboBox42.DisplayMember = ؟؟؟؟؟؟

ComboBox42.ValueMember = ؟؟؟؟؟؟؟

ComboBox42.DataSource = BindingSource19