【VB.NET】日付の差を算出したい

###作業概要
データベースから引っ張ってきたデータを、テキストデータに出力しています。
そこで本日の日付と指定の日付の差を算出するためにDateDiff関数で求めようと処理しています。
###実現したいこと
・2つの日付の差を算出したい
・算出して出力する際、〇年〇ヵ月という書式で出力したい

###困っていること/分からないこと
出力する際、レコードの書き込み時にエラーが出てしまい、エラーメッセージを見ても原因が理解できませんでした。
どういう書き方をすれば良いのか、どこを修正すれば良いかが分からずにいます。

###該当コード


　　　　　 '本日の日付
          Dim dtNow As DateTime = DateTime.Now
          '指定の日付
　　　　　 Dim SampleDay As New System.DateTime(2001, 4, 1)

          'レコードを書き込む
            For Each row In TableA.Rows

                Dim strTSV As String

                strTSV = ""
                strTSV = strTSV & row("TEST1").ToString() & Tab
                strTSV = strTSV & row("TEST2").ToString() & Tab
                
                '日付の差を算出する
                row("TEST3") = DateDiff("yyyy", SampleDay, dtNow)
                strTSV = StrTSV & row("TEST3").ToString() & Tab

###エラーメッセージ
ステップインして実行すると「日付の差を算出する」の処理の部分が通らず、以下のメッセージが出てきます。
'Int64'から'DateTime'への無効なキャストです。列 TEST3に<19>を格納できませんでした。
必要な型はDateTimeです。
###補足情報
OS:Windows10
開発ツール:Visual Studio2019
フレームワーク：.NET Framework4.8