'Dim rec As Scripting.Dictionary 'rec dic = New Scripting.Dictionary 'rec(12) = "いち" 'rec(34) = "に" 'rec(56) = "さん"
'Dim rec As VBA.Collection 'Set rec = New VBA.Collection 'rec.Add "いち", "12" 'rec.Add "に", "34" 'rec.Add "さん", "56"
'Set p.Value = rec 'VBA エラー: 424 オブジェクトが必要です 'Let p.Value = rec 'ADO エラー: adErrInvalidArgument Dim uk As stdole.IUnknown Set uk = rec 'Set p.Value = uk 'VBA エラー: 424 オブジェクトが必要です Let p.Value = uk 'ここまでは実行できた cmd.Execute 'ここでクラッシュ