sql-server - VBAを使用してDBの値をNULLで上書きします

Question

    If cell.Value <> "" Then

        uid = cell
        lname = Left(Replace(Range(cell.Address).Offset(0, 1), "'", ""), 50)
        fname = Replace(Range(cell.Address).Offset(0, 2), "'", "")
        stat = Replace(Range(cell.Address).Offset(0, 3), "'", "")
        role = Left(Replace(Range(cell.Address).Offset(0, 4), "'", ""), 50)
        iqn = Replace(Range(cell.Address).Offset(0, 5), "'", "")
        sdate = Format(Replace(Range(cell.Address).Offset(0, 6), "'", ""), "yyyy-mm-dd")
        bdate = Format(Replace(Range(cell.Address).Offset(0, 7), "'", ""), "yyyy-mm-dd")
        rodate = Format(Replace(Range(cell.Address).Offset(0, 8), "'", ""), "yyyy-mm-dd")
        End If
        hirereason = Replace(Range(cell.Address).Offset(0, 9), "'", "")
        roreason = Replace(Range(cell.Address).Offset(0, 10), "'", "")


        sql = "BEGIN TRAN IF EXISTS (SELECT * FROM " & TableName & " WITH (updlock, serializable)"
        sql = sql & " WHERE UID = '" & uid & "')"
        sql = sql & " BEGIN"
        sql = sql & " UPDATE" & TableName
        sql = sql & " SET LName='" & lname & "', FName='" & fname & "'"
        sql = sql & ", Status='" & stat & "', Role='" & role & "'"
        sql = sql & ", IQNRole='" & iqn & "', StartDate='" & sdate & "'"
        sql = sql & ", BillableDate='" & bdate & "', RollOffDate='" & rodate & "'"
        sql = sql & ", HireReason='" & hirereason & "', RollOffReason='" & roreason & "'"
        sql = sql & " WHERE UID = '" & uid & "'"
        sql = sql & " END"
        sql = sql & " ELSE BEGIN"
        sql = sql & " INSERT " & TableName & " (UID, LName, FName, Status, Role, IQNRole, StartDate"
        sql = sql & ", BillableDate, RollOffDate, HireReason, RollOffReason)"
        sql = sql & " VALUES('" & uid & "', '" & lname & "', '" & fname & "', '" & stat & "'"
        sql = sql & ", '" & role & "', '" & iqn & "', '" & sdate & "', '" & bdate & "', '" & rodate & "'"
        sql = sql & ", '" & hirereason & "', '" & roreason & "')"
        sql = sql & " END COMMIT TRAN"

        Cn.Execute (sql)

    End If

いくつかの値があり、日付の値を文字列としてフォーマットしています。これをそのまま実行すると、「」のデフォルト値が 1900-1-1 として DB に設定されます。NULL 値が実際に DB に残り、上書きされないようにしたい。さらに、以前はそうではなかったが今はそうであると言う場合は、セルを NULL で更新してもらいたいです。

RODATE の値を IF ステートメントでラップし、NULL、NOTHING、および EMPTY に対して検証して、「NULL」を含むこれらの UPDATE DB の 1 つであるかどうかを確認しようとしましたが、そうではありません。日付はまだ 1900-1-1 です。何か案は？