DataEnviromentでMDBの接続先を動的に変更するには？ (ID:116236)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 以前書き込んだのですが、なぜか消えてしまっているのでもう一度質問させていただきます。 最初にあるMDBファイルに接続させていて、画面上のリストビューに表示されたMDBファイル をクリックしたときに、クリックされたMDBファイルへの接続し直すような場合なのですが、 Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) With DE.Connection1 If .State = adStateOpen Then .Close .ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Dir1.Path & "\" & _ Item & ";" .Open Call sDispData '接続変更後のMDBファイルの内容表示 End If End With End Sub というようにすると、関数sDispData内の Private Sub sDispData() Dim intRCount As Integer With DE.rssql_PInfoSrc .Source = "SELECT * FROM 製品情報 ORDER BY I002" .Open '表示処理 .Close End With End Sub の".Open"のところで、 "この操作を実行するために接続を使用できません。このコンテキストで閉じているかあるいは無効です。" とでてしまうのですが、リストビューでクリックされたMDBに応じて接続し直す方法はありま すでしょうか？どなたかご教授をよろしくお願いいたします。