Visual Basic

<AttributeUsage(AttributeTargets.Property, Allowmultiple:=False, Inherited:=True)> _
Public Class DataTableSourceAttribute
    Inherits System.Attribute

    Private _dataTableField As String

    Public Sub New(ByVal DataTableField As String)
        _dataTableField = DataTableField
    End Sub

    Public Property DataTableField() As String
        Get
            Return _dataTableField
        End Get
        Set(ByVal Value As String)
            _dataTableField = Value
        End Set
    End Property

End Class

Imports System.Reflection

Public Class TransportMethod
    Implements IEquatable(Of TransportMethod)
    Private _code As String
    Private _iD As Integer
    Private _description As String
    Private _requiresAttendant As Boolean


    Public Sub New(ByVal row As dsTransportMethod.dtTransportMethodsRow)
        ProcessRow(row)
    End Sub

    <DataTableSource("TransportMethod")> _
    Public Property Code() As String
        Get
            Return _code
        End Get
        Protected Set(ByVal value As String)
            _code = value
        End Set
    End Property

    <DataTableSource("TransportMethodDesc")> _
    Public Property Description() As String
        Get
            Return _description
        End Get
        Protected Set(ByVal value As String)
            _description = value
        End Set
    End Property

    <DataTableSource("TransportMethodID")> _
    Public Property ID() As Integer
        Get
            Return _iD
        End Get
        Protected Set(ByVal value As Integer)
            _iD = value
        End Set
    End Property

    <DataTableSource("RequiresAttendant")> _
    Public Property RequiresAttendant() As Boolean
        Get
            Return _requiresAttendant
        End Get
        Set(ByVal value As Boolean)
            _requiresAttendant = value
        End Set
    End Property

    Private Sub ProcessRow(ByVal Row As dsTransportMethod.dtTransportMethodsRow)
        Dim PropertyList As PropertyInfo() = CType(Me, Object).GetType.GetProperties(BindingFlags.DeclaredOnly Or BindingFlags.[Public] Or BindingFlags.Instance)
        For Each objProperty As PropertyInfo In PropertyList
            If objProperty.CanWrite Then
                Dim oAttribs() As Attribute = CType(objProperty.GetCustomAttributes(GetType(DataTableSourceAttribute), True), Attribute())
                If oAttribs.Length = 1 Then
                    Dim field As String = CType(oAttribs(0), DataTableSourceAttribute).DataTableField
                    CType(Me, Object).GetType.GetProperty(objProperty.Name).SetValue(Me, Row(field), Nothing)
                    Debug.Print(field)
                End If
            End If
        Next
    End Sub
End Class

Private Sub AddCurrentRecordToDatabase()

    '#####################################################
    '# Add the contents of CurrentRecord to the database #
    '#####################################################

    'Make a connection to the database
    Dim sqlConn As New SqlCeConnection(sqlConnString)

    'Set up the insert command
    Dim sqlInsert As SqlCeCommand = sqlConn.CreateCommand

    sqlInsert.CommandText = "INSERT INTO BRDataTable VALUES('" _
    & CurrentRecord.Name & "', '" _
    & CurrentRecord.WhenReady & "', '" _
    & CurrentRecord.Address & "', '" _
    & CurrentRecord.Notes & "', '" _
    & ConvertBooleanToBit(CurrentRecord.Reminder) & "', '" _
    & CurrentRecord.DaysWarning & "', '" _
    & ConvertBooleanToBit(CurrentRecord.Acknowledged) & "', '" _
    & CurrentRecord.Age & "')"

    'Execute the insert command
    sqlConn.Open()
    sqlInsert.ExecuteNonQuery()
    sqlConn.Close()

End Sub

Label1.Text = String.Format("Completed: {0}%", CInt((Count / Total) * 100))
Label1.Invalidate()
Me.Invalidate()
Application.DoEvents()