ListBox1.DisplayMember = "Value" '表示に使われる項目 ListBox1.ValuelMember = "Value" 'SelectedValue で返される項目
Dim rowView As DataRowView = TryCast(ListBox1.SelectedItem, DataRowView) Dim row As DataRow = rowView.Row MsgBox( row(列名) )