エラー3709 が発生します。

解決

目玉 2011-05-22 10:00:28 No: 102928

こんばんわ 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 21:40:21 No: 102929

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

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