C# と VB.NET の質問掲示板

サブクエリにてDecimalフィールドの値を取得すると0Dとなってしまいます。
Decimalフィールド取得には何か必要でしょうか？

コードは以下の通りです。

よろしくお願い致します。

Dim Cmd As New OleDb.OleDbCommand
Dim Da As New OleDb.OleDbDataAdapter(Cmd)
Dim TanaTbl As New DataTable

With TanaTbl.Columns
.Add("ID", GetType(Integer))
.Add("HIN_PRICE", GetType(Decimal))
End With

Cmd.Connection = Cn
Cmd.CommandText = "SELECT ID, " & _
                  "(SELECT HIN_PRICE FROM HINMASTER WHERE HIN_CODE = TANATBL.HIN_CODE) AS HIN_PRICE " & _
                  "FROM TANATBL"

Da.Fill(TanaTbl)

DataGridView1.DataSource = TanaTbl