Ms Access Data Types

[RealisticGraphics]

Assuming you already have the recordset using ADO, you can get the field type like this:

Dim Fld As ADODB.Field
 
For Each Fld In rs.Fields
    debug.print Fld.Type
Next

Keep in mind that this returns an integer value corresponding to a constant in the DataTypeEnum.