Как при выборе в ComboBox, привязанному к столбцу БД, получить значения других полей

ChangeUser.DataSource = userTable
ChangeUser.DisplayMember = "fullname"
ChangeUser.ValueMember = "id"

Me.ChangeUser.SelectedValue

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
          MsgBox(tbl.Rows(ComboBox1.SelectedIndex)("password"))
    End Sub

        Dim uColName As DataColumn
        uColName = userTable.Columns("id")
        uColName.Unique = True
        userTable.PrimaryKey = uColName

MsgBox(tbl.Rows(ComboBox1.SelectedIndex)("password"))

Dim PrimaryKey(0) as DataColumn
PrimaryKey(0) = userTable.Columns("id")
userTable.PrimaryKey = PrimaryKey

dim dRow as DataRow= userTable.Rows.Find(ComboBox1.SelectedIndex)
MsgBox(userTable.Rows("password").toString

 Dim dRow as DataRow =userTable. Rows .Find (ComboBox1.SelectedValue )
MsgBox (dRows ("password" ).toString)

    Dim cn As OleDb.OleDbConnection
    Dim tbl As New DataTable
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\1.mdb")
        cn.Open()
        da.SelectCommand = New OleDb.OleDbCommand("Select * from Таблица2", cn)
        da.Fill(tbl)
        ComboBox1.DataSource = tbl
        ComboBox1.DisplayMember = "Поле3"
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        MsgBox(tbl.Rows(ComboBox1.SelectedIndex)("Поле5"))
    End Sub