小山といいます。

MSDE7.0+Wins2000Server
端末側：Excel2000

ExcelからMSDEのストアドプロシージャを使って
レコードセットを取得して、Excelにデータを取り込もうとしています。

VBA側で"SQL文"を作成してこれをパラメータとして
ストアドプロシージャへ渡してやり、MSDEで実行して
レコードセットを取得しようと思っています。
以下のようなコードを書きました。

===============================================
＜中略＞
'commandオブジェクトの定義
    Set cmd = New ADODB.Command
    Set parm = New ADODB.Parameter

    With cmd
        .ActiveConnection = cn
        .CommandType = adCmdStoredProc
        .CommandText = "抽出データ作成_store"
    Set parm = .CreateParameter("@parmsql", adVarChar, adParamInput, 200,
strSQL) ・・・・A
        .Parameters.Append parm
    End With

    'レコードセット取得
    Set rs = cmd.Execute
＜省略＞
@parmsqlは"varchar(200)"と設定しています。
strSQLには、"SQL文"が代入されています。
=================================================
Aの部分で「実行時エラー'3421';
現在の操作に対して、間違った型の値を使用しています。」
とエラー表示が出てしまいます。

パラメータで"SQL文"を渡しMSDEで実行する事は出来ないのでしょうか？
よろしくお願いいたします。