comboboxをdatasetでなんとかする

'connect to db
Dim db As MySqlConnection = db_connect()
Dim adp As New MySqlDataAdapter()
adp.SelectCommand = New MySqlCommand(SQL_STRING, db)
Dim ds As DataSet = New DataSet

adp.Fill(ds)

mem_id.DataSource = ds.Tables(0) 'set table, not item
mem_id.ValueMember = "id"
mem_id.DisplayMember = "name"

'access to value
val = combobox.SelectedValue