ASP.NET Report Kit Grasshoper (Race to Linux)

Imports System
Imports System.Data
Imports System.Configuration
Imports ASPNET.StarterKit.Reports.DataAccessLayer
Imports System.Collections

Namespace ASPNET.StarterKit.Reports.Components

    '*********************************************************************
    '
    ' SimpleReport Class
    '
    ' The SimpleReport class is used to represent a data item for Simple Report 
    ' and is mainly used to retrieve data from the database.
    '
    '*********************************************************************

    Public Class SimpleReport
        Private _city As String
        Private _companyName As String
        Private _contactName As String
        Private _contactTitle As String
        Private _phone As String

        Public Property City() As String
            Get
                Return _city
            End Get
            Set(ByVal Value As String)
                _city = Value
            End Set
        End Property

        Public Property CompanyName() As String
            Get
                Return _companyName
            End Get
            Set(ByVal Value As String)
                _companyName = Value
            End Set
        End Property

        Public Property ContactName() As String
            Get
                Return _contactName
            End Get
            Set(ByVal Value As String)
                _contactName = Value
            End Set
        End Property

        Public Property ContactTitle() As String
            Get
                Return _contactTitle
            End Get
            Set(ByVal Value As String)
                _contactTitle = Value
            End Set
        End Property

        Public Property Phone() As String
            Get
                Return _phone
            End Get
            Set(ByVal Value As String)
                _phone = Value
            End Set
        End Property

        '*********************************************************************
        '
        ' GetCustomerContacts method retrieves all the necessary customer contacts
        ' information from the database and transforms the result to a SimpleReportCollection
        ' custom colletion before returning it to the calling function
        '
        '*********************************************************************

        Public Shared Function GetCustomerContacts() As SimpleReportCollection
            Dim dsData As DataSet = SqlHelper.ExecuteDataset(ConfigurationSettings.AppSettings(Global.CfgKeyConnString), "Reports_GetCustomerContacts")
            Dim items As New SimpleReportCollection()

            Dim row As DataRow
            For Each row In dsData.Tables(0).Rows
                Dim item As New SimpleReport()
                item.City = row("City").ToString()
                item.CompanyName = row("CompanyName").ToString()
                item.ContactName = row("ContactName").ToString()
                item.ContactTitle = row("ContactTitle").ToString()
                item.Phone = row("Phone").ToString()
                items.Add(item)
            Next row
            Return items
        End Function 'GetCustomerContacts
    End Class 'SimpleReport
End Namespace 'ASPNET.StarterKit.Reports.Components