Public Class Form1
    Private collection As New Collection
    Friend Structure thing
        Dim num As Int32     'Room ID number
        Dim Name As String  'The name of the room - E.G. "L9" Is one of my computing classrooms
    End Structure


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim thing As thing

        thing.num = 1
        thing.Name = "one"

        collection.Add(thing)


        thing.num = 2
        thing.Name = "two"

        collection.Add(thing)


        thing.num = 1
        thing.Name = "three"

        collection.Add(thing)


        Dim index As Integer = 2
        Dim num As Integer = 1
        MsgBox("starting test")
        If collection(index).num = num Then 'if id passed equals id in database
            MsgBox("tada")
        Else
            MsgBox("Not tada")
        End If
    End Sub
End Class