エラー3709 が発生します。

解決

目玉  2011-05-22 01:00:28  No: 102928  IP: [192.*.*.*]

こんばんわ  VB6.0＋Access2002 で作成しています。

アプリ起動時

    'Access の新しいインスタンスを作成
    Set objAccess = CreateObject("Access.Application")
    objAccess.OpenCurrentDatabase App.Path & "\AAA.mdb", False

として接続しております。

別途、

    Set cn = New ADODB.Connection
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\AAA.mdb"
    
    Set rs = New ADODB.Recordset
    
    strSQL = "Select 〜"
    
    rs.Open strSQL, cn

実行すると

エラー3709 この操作を実行するために接続を使用できません。このコンテキストで閉じて
いるかあるいは無効です。

というエラーが出てしまいます。
どのように記述したら宜しいでしょうか？
ご教示の程宜しくお願い致します。

編集 削除
目玉  2011-05-22 12:40:21  No: 102929  IP: [192.*.*.*]

cn.ConnectionString = "Provider〜"
      ↓
cn.Open "Provider=〜"

としたら出来ました。  大変お騒がせを致しました。

編集 削除