ActiveX Exeのクラスのオブジェクト生成時にエラーになる (ID:102697)

名前

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

本文 ADO / OLE DB が出すエラーメッセージに似ていますね。 もしかしてそのクラスは、Private Sub Class_Initialize() 内で データベース接続を行っていませんか? ・ini ファイル等が正しく読み込まれず、接続情報が間違っている。 ・On Error で、本来のエラー箇所がスキップされてしまっている。 ・コードの誤りで、Connection / Recordset / Stream が 開かれていないときに、特定の操作をしようとしている。 など。たとえば、以下のようなコードでも、同様のエラーが再現されます。 Dim cn As Object Set cn = CreateObject("ADODB.Connection") cn.Provider = "Microsoft.JET.OLEDB.4.0" cn.Properties("Data Source").Value = "C:\db1.mdb" 'cn.Open 'Openされていない Dim rs As Object Set rs = cn.Execute("SELECT * FROM TBL")