Public Class MioDataRow
    Inherits System.Data.DataRow

    Sub New(ByVal builder As System.Data.DataRowBuilder)
        MyBase.New(builder)
    End Sub

    Private Function CheckNullToString(ByVal o As Object, Optional ByVal defaultValue As String = "") As String
        If o.Equals(DBNull.Value) Then
            Return defaultValue
        Else
            Return o.ToString()
        End If
    End Function

    Private Function CheckNullToInteger(ByVal o As Object, Optional ByVal defaultValue As Integer = 0) As Integer
        If o.Equals(DBNull.Value) Then
            Return defaultValue
        Else
            Return DirectCast(o, Integer)
        End If
    End Function

    '... Altri metodi simili...
End Class