ADO Recordset не загружается динамически (adOpenDynamic) - VB

Формулировка задачи:

Не знаю в чем дело... делал код и на Visual Basic 6.0 и на VBA (Excel)... результат один - датасет не хочет открыватся в динамическом режиме, в чем могут быть проблемы?
(таблицу создал в MS Access 2003, ADO 2.8)
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Set con = CreateObject("ADODB.Connection")
con.CursorLocation = ADODB.CursorLocationEnum.adUseClient
con.Mode = adModeReadWrite
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db\sklad.mdb;Persist Security Info=False"
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM Таблица1", con, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic
MsgBox rs.CursorType (возвращает 3 = adOpenStatic)

Решение задачи: «ADO Recordset не загружается динамически (adOpenDynamic)»

textual
                            Листинг программы 
                        
                            rs.CursorLocation = adUseServer
rs.<font color="blue">Open</font> <font color="teal">"TableName"</font>, cn, adOpenDynamic, adLockOptimistic, adCmdTableDirect