Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
 
        'Aufbau Table 
        Dim l_DT As New System.Data.DataTable
        Dim l_DR As System.Data.DataRow
        Dim l_Hugo99 As Hugo99
 
        l_DT.Columns.Add(New System.Data.DataColumn("Feld1", GetType(String)))
 
        For i As Integer = 1 To 5
            l_DR = l_DT.NewRow
            l_DT.Rows.Add(l_DR)
        Next
 
 
        'Je Row aus der Table eigene Klasse erzeugen 
        'welche eine (typsichere) Sicht auf die Row ist 
        For Each x As System.Data.DataRow In l_DT.Rows
            l_Hugo99 = New Hugo99(x)
            l_Hugo99.Feld1 = "Testinhalt"
            Debug.Print(l_Hugo99.Feld1)
        Next
 
    End Sub
 
End Class
 
 
''' <summary>
''' Eigene Klasse als Sicht auf eine DataRow 
''' </summary>
''' <remarks></remarks>
Public Class Hugo99
 
    Private _DR As System.Data.DataRow
 
    Public Sub New(ByVal pDR As System.Data.DataRow)
        MyBase.New()
        Me._DR = pDR
    End Sub
 
 
    Public Property Feld1() As String
        Get
            Return Me._DR.Item("Feld1").ToString
        End Get
        Set(ByVal value As String)
            Me._DR.Item("Feld1") = value
        End Set
    End Property
 
End Class