データ型をメモ型にして既存テーブルにフィールドを追加したい（ＡＣＣＥＳＳ ＡＤＯＸ）

質問

Sub test()
Dim cat As New ADOX.Catalog
Dim tb As New ADOX.Table
cat.ActiveConnection = CurrentProject.Connection
'テーブルを開く
Set tb = cat.Tables("テーブル1")
tb.Columns.Append "フィールド１", ad○○

Set cat = Nothing
Set tb = Nothing
End Sub

これで既存のテーブルにフィールドを追加できることを知ったのですが
データ型をメモ型にするにはどの「ad○○」にすればいいのでしょう？
（文字数が多いためテキスト型では収まりません）
オブジェクトブラウザで見ても、多すぎてどれなのかわかりません。

ご教授よろしくお願い致します。

回答No.1

mitarashi · ベストアンサー

数年前Excelでmdbを作って遊んだ事がありますが、すっかり忘れてしまいました。ご参考まで。
http://www.nurs.or.jp/~ppoy/access/access/acEt019.html
http://msdn.microsoft.com/ja-jp/library/cc389790.aspx

お礼

大変参考になりました。ご回答ありがとうございます。