MDBデータベースへの接続の動的変更

Cappuccino  2004-09-01 11:30:06  No: 85362  IP: [192.*.*.*]

いつも参考にさせていただいてます。早速ですが質問をさせていただきます。
DataEnvironmentを使ってADOでDBアプリを作っているのですが、リストビュー
コントロールに表示されているいくつかのMDBファイルのうち、クリックされたMDBファイルを動的に読み出す処理の場合、現在は
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

    With DE.Connection5

        If .State = adStateOpen Then
        
            .Close
                        
            .ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;" & _                               "Data Source=" & Dir1.Path & "\" & _                                 Item & ";"
                                              
            .Open
        
            '読出データ表示処理
            call sShowData
            
        End If
        
    End With
    
End Sub
というようにやると、sShowData関数の中で
”この操作を実行するために接続を使用できません。このコンテキストで閉
じているかあるいは無効です。”
というエラーがでてしまうのですが、こういう場合動的にDBの接続を切り替
える方法はどうしたらいいんでしょうか。。どなたかにアドバイスいただけ
れば幸いです。よろしくお願いします。

編集 削除
Cappuccino  2004-09-01 11:34:13  No: 85363  IP: [192.*.*.*]

すみません。追記です
環境は
VB : 6.0 SP5
OS : Windows XP
です。

編集 削除
たくまま  2004-09-03 13:22:31  No: 85364  IP: [192.*.*.*]

はじめまして
＞call sShowData
の中身でどのようなコーディングをしてますか？
DE.Connection5はどこで定義しているのでしょうか？
DE.Connection5が＜sShowData＞の中で無効なのでは？

編集 削除