Help with If statement to filter data in Link.xml file

Hello,

I'm trying to display data in two combo boxes based on values entered in a textbox. The trick is donor.xm; and Receiver.xml are linked to Link.xml by ReceiverID and DonorID.  Below is an example of all three xml files.

For example, when I seach for ReceiverID = 3 in my Textbox, CmbRec  should have value: CCCR
and if multiple records are found, I need to move to the next record using the Next/Previous buttons.

However I'm not getting the correct value, I'm getting a value of 1

Can you please take a look at my If statement to see what I'm doing wrong..

Thanks,

Victor

Link.xml:
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<Root>
  <Link>
    <ReceiverID>1</ReceiverID>
    <DonorID>2</DonorID>
  </Link>
  <Link>
    <ReceiverID>3</ReceiverID>
    <DonorID>3</DonorID>
  </Link>
</Root>

Receiver.xml
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<Root>
  <Receiver>
    <ReceiverID>1</ReceiverID>
    <Name>AAAA</Name>
  </Receiver>
  <Receiver>
    <ReceiverID>2</ReceiverID>
    <Name>BBBB</Name>
  </Receiver>
  <Receiver>
    <ReceiverID>3</ReceiverID>
    <Name>CCCR</Name>
  </Receiver>
</Root>

Donor.xml

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<Root>
  <Donor>
    <DonorID>1</DonorID>
    <Name>AAA</Name>
  </Donor>
  <Donor>
    <DonorID>2</DonorID>
    <Name>BBBB</Name>
  </Donor>
  <Donor>
    <DonorID>3</DonorID>
    <Name>CCCD</Name>
  </Donor>
</Root>

Code:

DonorStream.Load(Server.MapPath("~/App_Data/Donor.xml")) 'My.Resources.Donor)
        RecStream.Load(Server.MapPath("~/App_Data/Receiver.xml")) 'My.Resources.Receiver)
        LinkStream.Load(Server.MapPath("~/App_Data/Link.xml")) 'My.Resources.Link)


        Dim lnk As XmlNodeList = LinkStream.SelectNodes("Root/Link")
        Dim RecName As XmlNodeList = RecStream.SelectNodes("Root/Receiver")
        Dim DonorName As XmlNodeList = DonorStream.SelectNodes("Root/Donor")

        'Create Table
        Dim donorlst As New DataTable()
        donorlst.Columns.Add("ID")
        donorlst.Columns.Add("Name")

        Dim reclst As New DataTable
        reclst.Columns.Add("ID")
        reclst.Columns.Add("Name")

        'Load Link.xml
        Dim MyLink As XDocument = XDocument.Load(Server.MapPath("~/App_Data/Link.xml"))

        'Create varaible CheckForItem to see if I being searched exit in Link.xml
        Dim CheckForItem = (From el In MyLink.Descendants("Link").Elements("ReceiverID") Select el.Value).ToList

        'Loop Through all records in Link.xml and assign first childnode the rID and second childnode to dID
        For Each n As XmlNode In lnk
            If CheckForItem.Contains(Me.TextBox2.Text.ToString) Then
                Dim rID As Integer = Val(n.ChildNodes(0).InnerText)
                Dim dID As Integer = Val(n.ChildNodes(1).InnerText)

                'Loop Through all records in Receiver.xml and if ReceiverID = Textbox2.text and if the firstnode
                For Each node As XmlNode In RecName

                    If node.ChildNodes(0).InnerText = rID.ToString Then
                        reclst.Rows.Add(New Object() {rID, node.ChildNodes(1).InnerText})
                    End If

                Next

            For Each node As XmlNode In DonorName
                If node.ChildNodes(0).InnerText = dID.ToString Then
                    donorlst.Rows.Add(New Object() {node.ChildNodes(0).InnerText, node.ChildNodes(1).InnerText})
                    'donorlst.Rows.Add(New Object() {dID, node.ChildNodes(1).InnerText})
                End If
                Next
            End If
        Next

        CmbDonor.DataSource = donorlst
        CmbDonor.DataTextField = "Name"
        CmbDonor.DataValueField = "ID"
        CmbDonor.DataBind()

        CmbRec.DataSource = reclst
        CmbRec.DataTextField = "Name"
        CmbRec.DataValueField = "ID"
        CmbRec.DataBind()