Public Function GetReis() As Generic.List(Of Reis)
        Dim retVal As New Generic.List(Of Reis)
        If _myApp.ConnectionServiceLocal.Connection IsNot Nothing AndAlso _myApp.ConnectionServiceLocal.Connection.State = ConnectionState.Open Then
            Dim ta As New Global.FC.dsReisTableAdapters.reisTableAdapter
            ta.Connection = _myApp.ConnectionServiceLocal.Connection
            Dim dt As New Global.FC.dsReis.reisDataTable
            ta.Fill(dt)
            For Each row As Global.FC.dsReis.reisRow In dt.Rows
                Dim desc As String = vbNullString
                Try
                    desc = IIf(IsDBNull(row("desc")), Nothing, row.desc)
                Catch ex As Exception
                    Debug.Print(ex.Message)
                End Try
                Dim itm As New Reis(row.id, row.crdt, row.naimen, desc, row.aviakom_id, row.marshrut_id, row.pv)
                retVal.Add(itm)
            Next
        End If
        Return retVal
    End Function