Обновление невозможно. База данных или объект доступны только для чтения - VB

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

Пишу в макросе Excel нижеприведенный код для соединения с именованным диапазоном активной книги, и при попытке обновить поле получаю : Обновление невозможно. База данных или объект доступны только для чтения. Кто может посоветовать как правильно здесь выполнить операцию ?

                    Листинг программы
                
 
                        
                          
                    
Dim cnn As ADODB.Connection, Rs As ADODB.Recordset , rngName As String
rngName = 'NameA'
Set cnn = New ADODB.Connection
cnn.Open 'Provider=Microsoft.Jet.OLEDB.4.0;' & _
         'Data Source=' & _
         ActiveWorkbook.Path + ' ' + ActiveWorkbook.Name & ';' & _
         'Extended Properties=Excel 8.0' 'HDR=Yes;'
Set Rs = New ADODB.Recordset
Rs.Open Source:='SELECT  F1,F2, F3 from ' & rngName & _
        ' group by F1,F2,f3 order by F1,F2,f3 ', _
        ActiveConnection:=cnn, _
        CursorType:=adOpenDynamic, _
        LockType:=adLockPessimistic, _
        Options:=adCmdText
Rs.MoveFirst
Rs.Fields('F1')='123'

Решение задачи: «Обновление невозможно. База данных или объект доступны только для чтения»

textual
                            Листинг программы 
                        
Rs.SourseRs.LockType = adLockOptimistic
Rs.CursorType = adOpenKeyset
 
Rs.Source = 'SELECT F1,F2, F3 from ' & rngName & ' group by F1,F2,f3 order by F1,F2,f3 '
 
Rs.ActiveConnection = cn
Rs.Open
Rs.MoveFirst
Rs.Fields('F1')='123'
Rs.Update