Dim wrkJet As Workspace
Dim dbsNorthwind As Database
Dim rstTemp As Recordset

Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)

Set dbsNorthwind = wrkJet.OpenDatabase("C:\Documents and Settings\XXX\My Documents\幼稚園\YYY.mdb")
Set rstTemp = dbsNorthwind.OpenRecordset("テーブル", dbOpenDynaset, dbReadOnly)

　　とHelpにあるままやったのですが、最後の行で型が違いますといわれます
　　VBAから他のDatabaseのレコードセットを取得させたいのですが・・・
　　他にも色々回避方法はあると思いますがこの形で取得できるやりかたをご教授願いﾏｽ