DaoにてTable作成 (ID:141526)

名前

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

本文 いつもお世話になっています。 パンダといいます。 ◆質問 DaoにてMDBにテーブルを作成するプログラムを作っているのですが、エラーが出て困っています。自宅のＰＣだと問題ないのですが、会社のＰＣだとエラーが発生します。 いろいろ調べているのですが、さっぱり分りません。 ご教授願います。 ◆エラー 型 'System.__ComObject' の COM オブジェクトをインターフェイス型 'DAO.TableDef' にキャストできません。 ◆環境 VB2008EE,XPSp2 ◆以下ソース 'Dao3.6 Object Library参照 Dim objAccess As Object objAccess = CreateObject("Access.Application") Dim path As String = "c:\temp\123.mdb" 'Accessファイル作成 objAccess.NewCurrentDatabase(path) 'テーブル作成 Dim tbl As New DAO.TableDef Dim fld As New DAO.Field Dim db As Object db = objAccess.CurrentDb tbl = db.createtabledef("Table") '↑ここでエラー fld = tbl.CreateField("Field", 4) tbl.Fields.Append(fld) db.tabledefs.append(tbl) db.Close()