Доброго времени суток!

Подскажите пожалуйста, можно ли создать рекордсет на основании запроса в Access?

Пробовал вот такой код (один раз сработал, теперь не работает - почему - не могу понять):

Public Sub Расход_план()
DoCmd.OpenQuery "Запрос4"
Dim ADODBcons As ADODB.Recordset
Set ADODBcons = New ADODB.Recordset
ADODBcons.Open "[Запрос4]", CurrentProject.Connection, adUseClient, adLockOptimistic
ADODBcons.Close
Set ADODBcons = Nothing
End Sub

Запрос4 - обычный запрос на выборку в Access

Ошибку выдает следующую (на строке ADODBcons.Open): "Run-time error '-2147217900 (80040e14)': Ошибочная инструкция SQL; предполагалось 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' или 'UPDATE'."

Я так понимаю, почему-то строка, с ".Open" воспринимается как SQL-запрос, который естесственно неверный. Пробовал открывать какую-нибудь таблицу из этой БД этим кодом - все работает, так что думаю, что причина именно в том, что на основе запроса пытаюсь делать. Но понять, что не так, не могу. Один же раз все-таки сработало... Повторно воспроизвести срабатывание не получилось.

Заранее благодарю за подсказки и помощь.

http://www.sql.ru/forum/1161844/sozdanie-adodb-recordset-iz-zaprosa-access