C008 BIND で指定していないクラスです: <名前>

Set...Bind ステートメントを使用して Variant 型の変数に製品のオブジェクトの参照を代入しようとしましたが、オブジェクトのクラス名が省略されています。例えば、ProdADT という製品クラスがあるとします。

Dim P As New ProdADT("MyProdADT")
Dim varV As Variant
Set varV = Bind("MyProdADT")             ' Illegal because product class name
                                         ' is missing
Set varV = Bind ProdADT("MyProdADT")     ' Legal syntax

Bind キーワードの後に製品のクラスの名前を挿入してください。