recordset.field.typeプロパティからADOデータ型の名前を取得しますか？

Question

私は、Accessテーブルからフィールドのリスト（名前、タイプ、サイズ）を生成する必要があります。この単純なVBのコードはほとんど私が必要なものを私にを与える：

Set rs = CurrentDb.OpenRecordset("myTable") 
For x = 0 To rs.Fields.Count - 1 
    Print #1, rs.Fields(x).Name & vbTab & rs.Fields(x).Type & vbTab & rs.Fields(x).Size 
Next 

もちろんの「タイプ」ではなく「varchar型」のようなものの「10」のような数値定数ですが。

私はこれを行うつもりだった：

Select Case rs.Fields(x).Type 
    Case adChar 
    fieldType = "adChar" 
    Case adInteger 
    fieldType = "adInteger" 
    Case adDouble 
ETCETERA.... 

をしかし、より良い方法があるのだろうか、DataTypeEnum.FindName（タイプ）か何かのようなもの？

これは "ばかげた質問"ですが、私は毎日VBで動作しません.Googlingはこれについて明確な答えを得ていません。