旧言語の話ばかり書いても仕方ないので、VB.NET の話に戻します。
ハッキリ言って、気持ち悪いです。
DBNull に扱いにくさがあるという点は、私も感じています。
しかし DBNull を他の型に変換できず、型変換関数に渡すこともできないという点については、そもそもの仕様として「そういうもの」として設計されているわけですから、そこはまずは受け入れるしか無いと思います。
Dim x As Object = DBNull.Value
Dim a As Boolean = True
Dim b As Boolean = False
Dim c As Boolean = DBNull.Value 'これは不可
Dim d As Boolean = CBool(x) 'これは不可
なぜこのような仕様なのでしょう？
何故そうなっているのかという点については、別の投稿にて既に述べさせて頂きましたが、値が無いことを示す物であることから、あえてそういう実装になっているのでしょうね。互換性の問題もありますし、それ自体は間違っているとは思いません。
ただ自分の場合は、DBNull を極力使わないようにしています。
DBNull を使うのは、主に ADO.NET 利用時かと思いますが、自分のところでは DataSet を通じて利用するのではなく、nuget から Dapper を参照設定に追加し、任意クラスのコレクションとして受け取る機会が増えてきました。これなら DBNull を使わずに NULL データを表現することもできるので重宝しています。（ただし Dapper を使うなら、VB ではなく C# を採用した方が書きやすいと思いますので、ここでは具体的な使い方は触れずにおきます。）
そしてデータベースとしての NULL は、DBNull で表現するのではなく、Nullable 型 (null 許容値型) を活用して Nothing で表現するようにすることで、扱いが楽になるかと思います。
Dim x As Object = Nothing 'DBNull ではなく Nothing を使って表現する
Dim a As Boolean? = True '
Dim b As Boolean? = False
Dim c As Boolean? = Nothing 'これは OK
Dim d As Boolean = CBool(x) 'これは False と同義
Nullable 型に対して演算処理を行った場合、中身が Nothing だと演算結果も Nothing のままです。この点はデータベースでの NULL 演算に近いので、DBNull よりもより直観的に処理できるかと思います。
Dim i1 As Integer? = 5
Dim i2 As Integer? = i1 + 10 '結果は 15
Dim i3 As Integer? = Nothing
Dim i4 As Integer? = i3 + 10 '結果は Nothing
Dim i5 As Integer = Nothing
Dim i6 As Integer? = i5 + 10 '結果は 10 (i5 は Nullable ではないため)
Dim b As Boolean? = Nothing
If b Then
MsgBox(1)
Else
MsgBox(2) 'ここが呼ばれる
End If
If Not b Then
MsgBox(3)
Else
MsgBox(4) 'ここが呼ばれる
End If
そもそも ADO.NET が実装されたのは、最初の .NET Framework 1.0 の頃ですし、私としては、古い設計であるように感じています。
VB2005 で Nullable(Of Integer) がサポートされ、VB2008 で Integer? と表記できるようになったのですから、DBNull の代わりに Nothing を利用できるよう、ADO.NET でも null 許容型をサポートして欲しいと思ったのですが、残念ながら現在においても
dataTable1.Columns.Add("ID", GetType(Integer?))
などという使い方はできない仕様になっています。
その代わり、null 許容型 で受け取ることが可能な Filed(Of ) が用意されています。既にご存知かもしれませんが。
Dim s As String = row.Filed(Of String)("EMail") 'DBNull の時には Nothing が返される
Dim d1 As Decimal? = row.Field(Of Decimal?)("Bonus") 'DBNull の時は Nothing が返される
Dim d2 As Decimal = row.Field(Of Decimal)("Bonus") 'DBNull の時は例外 InvalidCastException
null 許容型であれば、NULL データは DBNull ではなく Nothing として返却されますので、CStr(v) や CInt(v) による型変換でもエラーにはならないというメリットがあります。
また、Nothing として得られることから、If 演算子 や
Null 条件演算子 が利用可能になる点も便利かと。
Dim s As String = "メールアドレスは" & If(strEmail, "<未設定>") & "です"
なお上記サンプルで用いた If 演算子は、Access VBA の Nz 関数／Oracle の NVL 関数／SQL Server の IsNull 関数に相当する機能ですね。Access における Nz 関数の実装をまねて、VB.NET で DBNull 対応の Nz や、VB6 で Null 対応の Nz を自作した実装例が幾つかあるので、紹介させていただきます。
C# と VB.NET の質問掲示板：プロシージャの戻り値がnullの時
VB2005- Wiki : Nz 関数
VB初心者友の会：Ｎｚ関数に変わるものは？
