Just try with below example
Dim dt As New DataTable
dt.Columns.Add("Id", GetType(Int32))
dt.Columns.Add("Data", GetType(String))
dt.Rows.Add(1, "Test1")
dt.Rows.Add(2, "Test2")
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "Data"
ComboBox1.ValueMember = "Id"
Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
If Not IsNothing(ComboBox1.SelectedItem) Then
If Not IsNothing(ComboBox1.SelectedValue) Then
txtValueTxt.Text = ComboBox1.SelectedValue
End If
txtDisplayText.Text = DirectCast(ComboBox1.SelectedItem, System.Data.DataRowView).Row.ItemArray(1)
End If
End Sub
don't forget to accept answer if you got solution.