Запись ID выбранного элемента ComboBox в Label

 sqConnection.Open()
        Dim command As SQLiteCommand = New SQLiteCommand("SELECT id,namess FROM users_mes;", sqConnection)
        Dim reader As SQLiteDataReader = command.ExecuteReader()
        If reader.HasRows Then
            Do While reader.Read()
 
                Form2.ComboBox4.Items.Add(reader.GetString(1)) ' выводим имя расположения
                Console.WriteLine(reader.GetInt32(0)) ' выводи id 
                Form2.ListBox1.Items.Add(reader.GetInt32(0))
            Loop
        Else : Console.WriteLine("noy")
        End If
        reader.Close()
        sqConnection.Close()

  Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged
    Label1.Text = ListBox1.Items(ComboBox4.SelectedIndex)
  End Sub

 Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged
        Label12.Text = ListBox1.Items(ComboBox4.SelectedIndex)
    End Sub

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    Dim lt As New List(Of mySQdata)
    'читаем в цикле
    lt.Add(New mySQdata(reader.GetString(1), reader.GetInt32(0)))
    '...
    ComboBox1.DataSource = lt
    ComboBox1.DisplayMember = "name"
    ComboBox1.ValueMember = "id"
    ComboBox1.SelectedIndex = -1
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    Try
        Label1.Text = ComboBox1.SelectedValue
    Catch ex As Exception
    End Try
End Sub
'...
Private Class mySQdata
    Public Sub New(ByVal nm As String, ByVal ii As Integer)
        _id = ii
        _name = nm
    End Sub
    Public Property name As String
    Public Property id As Integer
End Class