DataGrid101: Using Windows.Forms DataGrid

' Domain class: Car
' Represents a car instance, complete with license plate (and, hopefully, not a license to kill)
Public Class Car
#Region "data members"
    Private licenseVal As String
    Private typeVal As CarType
    Private priceVal As Integer
#End Region

#Region "Constructors"
Public Sub New(ByVal pLicense As String, ByVal pPrice As Integer, ByVal pType As CarType)
    licenseVal = pLicense
    typeVal = pType
    price = pPrice
End Sub
#End Region

#Region "Database mapping"
Public Shared Function loadFromDataRow(ByVal dr As DataRow) As Car
  Return New Car(dr("license"), dr("price"), CarType.getCarType(dr("typeID")))
End Function

Public Sub updateDataSet(ByVal ds As CarDataSet)
    Dim carTable As DataTable = ds.Tables("Cars")
    Dim myRow As DataRow = carTable.Select("license='" & license & "'")(0)
    myRow("price") = price
End Sub

Public Sub addToDataSet(ByVal ds As CarDataSet)
    Dim carTable As DataTable = ds.Tables("Cars")
    Dim myRow As DataRow = carTable.NewRow
    myRow("license") = license
    myRow("typeID") = type.id
    myRow("price") = price
    carTable.Rows.Add(myRow)
End Sub

Public Sub removeFromDataSet(ByVal ds As CarDataSet)
    Dim carTable As DataTable = ds.Tables("Cars")
    Dim myRow As DataRow = carTable.Select("license='" & license & "'")(0)
    myRow.Delete()
End Sub

#End Region

#Region "Properties"
Public Property license() As String
Get
    Return licenseVal
End Get
Set(ByVal Value As String)
    If (licenseVal Is Nothing) Then
       licenseVal = Value
     Else
       Throw New Exception("License cannot be altered once set")
     End If
End Set
End Property

Public Property price() As Integer
Get
    Return priceVal
End Get
Set(ByVal Value As Integer)
    priceVal = Value
End Set
End Property

Public ReadOnly Property type() As CarType
Get
    Return typeVal
End Get
End Property

Public ReadOnly Property manufacturer() As CarManufacturer
Get
    Return typeVal.manufacturer
End Get
End Property
#End Region
End Class