Public Module SpoorwegController
    Dim data As New SpoorwegDataLinqDataContext
    Public Function getAllRitten() As List(Of Ritten)
        Return (From s In data.Rittens Select s).ToList()
    End Function

    Public Function getTreinTypeById(ByVal id As String) As Treinen
        Dim trein As Treinen
        trein = (From s In data.Treinens Where s.Id = id Select s).First
        Return trein
    End Function

    Public Function getStationNaamById(ByVal id As String) As Station
        Dim station As Station
        station = (From s In data.Stations Where s.Id = id Select s).First
        Return station
    End Function


End Module