Проблема с методом OpenRecordset

[Igor]

Такой вот нехитрый код упорно пишет TypeMismatch на строке
Set rstTable = dbCity.OpenRecordset("Select * from City", dbOpenDynaset)

Код: Выделить всё

Dim rstTable As Recordset
Dim dbCity As Database
Set dbCity = OpenDatabase(CurrentDb.Name)
'Здесь можно и Set dbCity= CurrentDB один и тот же результат

Set rstTable = dbCity.OpenRecordset("Select * from City", dbOpenDynaset)

Подскажите, в чем модет быть проблема.

[GSerg]

Проблема сия общеизвестна...
Она возникает при одновременном использовании ссылок на ADO и DAO.

Dim rstTable As DAO.Recordset
Dim dbCity As DAO.Database

[Igor]

Спасибо, помогло. Дык итак только дао было подключено.

[GSerg]

Значит, ADO идёт неявно. Но идёт

[Igor]

В любои случае санькс