VB ADO カラム 型

VB + ADO (SQL Server)にて。
テーブルの各カラムの型だけ知りたい場合
—————————————-
Dim rcd AS ADO.Recordset
Dim sql AS String
sql = “SELECT * FROM hoge”
rcd.open sql, con
—————————————-
でレコードオープン。
たとえ、 レコードがなくても、
rcd.field(0).type
で、型を取得することができる。