Identifying every field type in a table programmably

I want to retrieve every field type in a table in a program.

We tried this by "select top 0 * from Table" with ADO recordset and found
that many types can be identified by reading Fields[].Type value.
However, some field types show incorrect results, for example, Date type in
SQL Server is shown as VarWChar in ADO Fields[].Type value.
How can I retrieve correct field type list of a table?

Thanks in advance.