>>682
だって、これはエラーメッセージの問題じゃないと思うんです。
Private Sub Command1_Click()
Set fs=〜
End Sub
通常はこのようにプライベートなサブプロシージャでオブジェクトを作成するけど、
これだとEnd Subのところでオブジェクトが自動的にSet fs=Nothingにされちゃうので、
だからパブリックなfsオブジェクトを作れたら
いろいろなプロシージャを実行するたびにいちいちfsを作る必要がなくなって楽だなあと。