Yes/Noで回答可能な質問への選択回答をSQLserver2012にbit型データとして格納したい

ASP.NET Webフォームアプリに関するご質問です（Visual Stdio 2010を使用、OSはWindows7）。
以下のようなフォームでなされた回答(ラジオボタンで選択された選択肢)をデータベース（SQLserver2012を使用）に格納したいです。

ただし、各質問に対する格納内容はそれぞれ、
「はい」を選択 → １
「いいえ」を選択 → ０
「回答しない」を選択 → NULL
です。

その場合、質問への回答一覧を格納する、VB側の配列のデータ型はどのようにすればよいのでしょうか。
当初String型としていたのですが、データベースへの格納処理がなされていなかったので、
Boolean型として試したところNULLは格納できないとのことでした。

※回答にてNULL許容型の使用をご指摘いただきましたが、
恥ずかしながら記載のSelect構文とあわせての記述の仕方がわかりません。
（Select構文のやり方でない別の方法が適切なんでしょうか・・・？）
その点も教えていただけるとありがたいです。

それとも、テーブルデザインでデータ型をbit型から別の型に改善したほうがよいのでしょうか。
（想定の回答選択肢がすべてYes/Noに未回答を加えたものでしたので、bit型としたのですが・・・）

格納先のテーブルの構成は以下のとおりです。

初級者ゆえそうしたデータ型の特性等にも詳しくないため、ぜひご回答いただきたいです。
よろしくお願いします。

Imports System.Data.SqlClient

Partial Class Self_list_testSub
    Inherits System.Web.UI.Page

    Protected Sub SelfFin_Btn_Click(sender As Object, e As System.EventArgs) Handles SelfFin_Btn.Click

        Dim count As Integer = 0
        Dim answer(4) As Boolean 'データ型はどうすれば？

        '繰り返し文の記載（不十分な点です）
        For count = 0 To 4
            Select Case RadioButtonList.SelectedValue
                Case 1
                    answer(count) = 1
                Case 0
                    answer(count) = 0
                Case Else
                    answer(count) = "NULL"
            End Select
        Next count

        Dim newid As Integer = GetNewID()

        Dim dtToday As DateTime = DateTime.Today

        '最後にtbl_testRgにデータを格納します
        Dim strSQL As String
        strSQL = "INSERT INTO tbl_testRg" &
            " (ID, result1, result2, result3, result4, result5, date)" &
            " VALUES(" & newid & "," & answer(0) & "," & answer(1) & "," & answer(2) & "," & answer(3) & "," & answer(4) & "," & answer(5) & "," & dtToday & ")"


        Dim cnStr As String = System.Configuration.ConfigurationManager.
           ConnectionStrings("○○○○○○ConnectionString").ConnectionString

        Using connection As New SqlConnection(cnStr)

            Dim command As New SqlCommand(strSQL, connection)

            connection.Open()

            Try
                command.ExecuteNonQuery()

            Catch ex As Exception
                lblMsg.Text = "エラー発生のため、処理を中止します！ </ br>" & ex.Message
            End Try
            connection.Close()
        End Using

    End Sub

'格納用に新しいIDを取得します。
    Private Function GetNewID() As Integer

        '戻り値用定義（-1は失敗時用）
        Dim ret As Integer = -1

        Dim cnStr As String = System.Configuration.ConfigurationManager.
            ConnectionStrings("○○○○○○ConnectionString").ConnectionString

        Using connection As New SqlConnection(cnStr)

            Dim SQL As String
            SQL = "SELECT ISNULL(MAX(Self_ID),0)+1 FROM tbl_testRg"

            Dim command As New SqlCommand(SQL, connection)

            Try

                connection.Open()

                Dim result As Object = Nothing
                result = command.ExecuteScalar()

                If result IsNot Nothing Then ret = CInt(result)

                connection.Close()

            Catch ex As Exception

            End Try

        End Using

        Return ret
    End Function

End Class