Как правильно заполнить текстовые поля из файла XML в выбранном элементе ComboBox?

Я пробовал так много разных способов заставить это работать, и он просто продолжает загружать первый элемент. Мне нужно иметь возможность заполнять различные текстовые поля всеми элементами из файла XML после сопоставления текста из поля со списком.

По сути, я загружаю свое приложение, Я СНАЧАЛА читаю XML-файл, чтобы загрузить ComboBox, затем, когда я выбираю элемент из ComboBox, я загружаю другие текстовые поля с подробностями об ошибке.

Мой файл XML:

<?xml version = "1.0" encoding = "us-ascii"?>
<!--SIP Data created by TECH on 1/24/2014 10:07:04 AM-->
<ERROR_ITEMS>
    <ERROR_DATA Posted = "6/11/2018 12:00:00 PM">
        <Response>ERROR001</Response>
            <Method>ErrorCode001</Method>
                <Request>Acknowledged</Request>
                    <Code>001</Code>
                        <Information>Information for code 001 goes here</Information>
                            <Troubleshooting>Error 001 designates connections failed. Check all connections.</Troubleshooting>
                                <Additional_Notes>Tech notes: Ensure proper gauge of wiring.</Additional_Notes>
                                    <DateTimeSaved>11/10/2014 1:45:25 PM</DateTimeSaved>
        <Response>ERROR002</Response>
            <Method>ErrorCode002</Method>
                <Request>Acknowledged</Request>
                    <Code>002</Code>
                        <Information>Information for code 002 goes here</Information>
                            <Troubleshooting>Error 002 designates input power failed. Check power to aux inputs.</Troubleshooting>
                                <Additional_Notes>Tech notes: Check all power connections</Additional_Notes>
                                    <DateTimeSaved>11/10/2014 1:50:25 PM</DateTimeSaved>
  </ERROR_DATA>
</ERROR_ITEMS>

И мой код VB.net:

Imports System.Xml
Imports System.Text
Imports System.IO
Imports System.Environment
Public Class Form1

    Private Sub ExitAppBTN_Click(sender As Object, e As EventArgs) Handles ExitAppBTN.Click
        Me.Close()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Try
            ' LOAD THE ERRORS INTO THE COMBO BOX
            Dim document As XmlDocument = New XmlDocument
            document.Load(Application.StartupPath & "/items.xml")

            For Each node In document.SelectNodes("ERROR_ITEMS/ERROR_DATA/Response")
                CmboERRORList.Items.Add(node.InnerText())
            Next

            'Load First Item
            CmboERRORList.SelectedIndex = 0
            CmboERRORList.Focus()
        Catch ex As Exception
            MsgBox("Error processing file. The error was: " & vbCrLf & Err.Description, MsgBoxStyle.Exclamation, "Error loading file contents to drop down list.")
        End Try
    End Sub

        Private Sub CmboERRORList_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmboERRORList.SelectedIndexChanged
                Try
                    'Load info from the XML file

                    Dim document As XmlDocument = New XmlDocument
                    document.Load(Application.StartupPath & "/items.xml")
                    Dim node = document.SelectSingleNode("ERROR_ITEMS/ERROR_DATA[Response = '" & CmboERRORList.Text & "']")
                    MsgBox(node.SelectSingleNode("Method").InnerText)

                    For Each node In document.SelectNodes("ERROR_ITEMS/ERROR_DATA[Response = '" & CmboERRORList.Text & "']")
                        Dim ErrResponseCode = node.SelectSingleNode("Method").InnerText
                        Dim ErrDetails = node.SelectSingleNode("Information").InnerText
                        txtDetails.Text = ErrDetails
                    Next

                Catch ex As Exception
                    MsgBox("Error Reading Error Data File, please contact technical support. Error is: " & Err.Description & vbCrLf & "Error Number is :" & Err.Number, MsgBoxStyle.Exclamation, "Error")
                End Try
            End Sub