Передача значения из набора данных для просмотра

Question

У меня есть простая программа, где я получаю значение из таблицы в базе данных и отображаю его в виде. Я использую vb.net и MVC.

Я новичок в обоих и не получаю никаких результатов. Я думаю, что значение хранится в datatable, но я не могу передать их для просмотра и не могу отобразить его. Я попробовал код, который я получил из сети, но он не работает. Большинство из них на C #, но я конвертирую код в vb.net с помощью онлайн-конвертера. В результате я получаю неверный код.

Employee.vb (класс модели)

Public Class Employee

    Private _id As Integer
    Public Property id() As Integer
        Get
            Return _id
        End Get
        Set(ByVal value As Integer)
            _id = value
        End Set
    End Property

    Private _firstname As String
    Public Property firstname() As String
        Get
            Return _firstname
        End Get
        Set(ByVal value As String)
            _firstname = value
        End Set
    End Property

    Private _lastname As String
    Public Property lastname() As String
        Get
            Return _lastname
        End Get
        Set(ByVal value As String)
            _lastname = value
        End Set
    End Property

End Class

Operations.vb (чтобы получить значение из БД)

Public Shared Function GetDataToDataSet() As DataSet
        Dim con As Connection = New Connection()
        Dim cnn = con.ConnectionSetup()

        Dim query As String = "use DemoDb select * from employee_db"
        Dim adapter As SqlDataAdapter = New SqlDataAdapter(query, cnn)
        Dim ds As DataSet = New DataSet
        adapter.Fill(ds)
        Return ds

    End Function

HelpController

 Public Class HelpController
        Inherits Controller

 Function Home() As ActionResult
            Dim ds As New DataSet
            ds = DataOperations.Operations.GetDataToDataSet()

            Return View(ds)

        End Function
  End Class

Home.vbhtml (Просмотр для отображения кода)

@imports System.Data
@ModelType DataSet

@Code
    ViewData("Title") = "Home"
End Code

<h2>Home</h2>

<table>
    <thead>
        <tr>           
           @For Each col As DataColumn In Model.Tables[0].Columns
               @<th>@col.ColumnName</th>
           Next

        </tr>
    </thead>
    <tbody>

        @For Each row As DataRow In Model.Tables[0].Rows
            @<tr>
                <td>@row["Id"]</td>
                <td>@row["firstname"]</td>
                <td>@row["lastname"]</td>    
            </tr>



        Next
    </tbody>
</table>

Мне действительно нужна помощь. Я знаю, что это простая программа, но я новичок в vb.net, поэтому она усложняет ее. Ждем помощи.