文字列型のフィールドを挿入したい

実現したいこと

EXCELでレコードセットを新規に作成しようとしています。
文字列型のフィールドを作成したいのですが、何故かエラーになってしまいます。
理由が分からないので、知見をください。

前提

EXCELの標準モジュールでコードを書いています。

発生している問題・エラーメッセージ

実行時エラー　3001
エラーメッセージ
引数が間違った型、許容範囲外、または競合しています。

該当のソースコード

VBA

ソースコード

Sub Test1()　'Microsoft ActiveX Data Objects6.1 Library参照設定済 Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset With rs With .Fields .Append "ID", adVarChar　　　　’ここでエラー .Append "Name", adVarChar　　’ここでもエラー .Append "Score", adInteger End With .Open .AddNew !ID = "001" !Name = "一郎" !Score = 50 .Update End With Cells(1, 1).CopyFromRecordset rs rs.Close: Set rs = Nothing End Sub ### 試したこと .Append "ID", adVarChar　　の箇所でエラーになります。 インテリセンスで選択したのですが、何がいけないのかわかりません。 ちなみに[adChar] を選択しても同じエラーになりました。 [adVariant](Variant型？)を選択すればうまくいくのですが。。。 ### 補足情報（FW/ツールのバージョンなど） Office　365 よろしくお願いします。