'Дано: некое поле fld As adoDB.field
    'Поехали:
    Dim result As String
    result = fld.Type
    Select Case fld.Type
    Case dbText
        result = "Text"
    Case dbMemo
        result = "Memo"
    Case dbLong
        result = "Long"
    Case dbInteger
        result = "Integer"
    Case dbSingle
        result = "Single"
    Case dbBigInt
        result = "BigInt"
    Case dbBinary
        result = "Binary"
    Case dbBoolean
        result = "Boolean"
    Case dbByte
        result = "Byte"
    Case dbChar
        result = "Char"
    Case dbCurrency
        result = "Currency"
    Case dbDate
        result = "Date"
    Case dbDecimal
        result = "Decimal"
    Case dbDouble
        result = "Double"
    End Select
    msgbox("Тип поля: " & result)

result = fld.Type.Text
'и убираю два первых символа "db":
result = mid$(result,  3 )