Dim dbs As Database
Dim rst As Recordset
Dim fld As Field
Dim strType As String

Const cstrTableName = "mtbl商品マスタ"       'テーブル名
Const cstrFieldName = "商品名"               'フィールド名

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(cstrTableName)
Set fld = rst.Fields(cstrFieldName)
Select Case fld.Type
  Case dbBoolean
    strType = "ブール型"
  Case dbByte
    strType = "バイト型"
  Case dbInteger
    strType = "整数型"
  Case dbLong
    strType = "長整数型"
  Case dbSingle
    strType = "単精度浮動小数点型"
  Case dbDouble
    strType = "倍精度浮動小数点型"
  Case dbCurrency
    strType = "通貨型"
  Case dbDate
    strType = "日付/時刻型"
  Case dbText
    strType = "テキスト型"
  Case dbLongBinary
    strType = "OLEオブジェクト型"
  Case dbMemo
    strType = "メモ型"
End Select
rst.Close

MsgBox strType