SQLServer2k + フロントエンドAcc2kでちょっとしたdbアプリ(adp)作った時、 ストアドの戻り値を受け取るのに手間取ったのでメモっておく。 Dim cmd As New ADODB.Command Dim fm As Form Dim lngRtnCode As Long Set fm = Form_hoge With cmd Set .ActiveConnection = Conn 'Connectionオブジェクトを代入 .CommandType = adCmdStoredProc 'コマンドタイプはストアドを選択 .CommandText = "usp_hogehoge" 'ストアド名 '作成(Creaet)したParameterを追加(Append) 'CreateParameterメソッドの引数について '第1引数 … VBA側のパラメータ名。VBA側で識別でき