Access MDB - Как совместить в одной транзакции работу через Execute SQL и Recordset

Public Function Trans_Test()
Dim Rs1 As ADODB.Recordset, CnnString As String, Cnn As ADODB.Connection, dbName As String
 
' Tbl1(*Id,fld1) , Tbl2(*Id,*fld1,fld2,fld3)
dbName = "C:1db1.mdb"
Set Cnn = New ADODB.Connection ' & CurrentDb.Name
CnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbName & _
            ";Mode=Share Deny None;Persist Security Info=False" ' ;Mode=Share Deny None
 
'Cnn.IsolationLevel = adXactReadCommitted ' adXactReadUncommitted,adXactReadCommitted(Default),adXactRepeatableRead,adXactSerializable
 
'Cnn.Mode = adModeShareDenyWrite  ' adModeUnknown adModeRead adModeWrite adModeReadWrite adModeShareDenyRead adModeShareDenyWrite adModeShareExclusive adModeShareDenyNone(Default)
 
'Cnn.CursorLocation = adUseServer ' adUseServer(Default) adUseClient
 
Cnn.Open CnnString ' Запись БЛОКИРУЕТСЯ !
 
Set Rs1 = New ADODB.Recordset
Rs1.Open Source:=" SELECT * FROM Tbl1 ", ActiveConnection:=Cnn, _
         CursorType:=adOpenKeyset, LockType:=adLockPessimistic ',Options:=adCmdText ' adLockOptimistic adLockPessimistic
Cnn.BeginTrans
Rs1.MoveFirst
Rs1!fld1 = -1  
' -2147467259  Обновление невозможно; установлена блокировка :
Cnn.Execute "UPDATE Tbl1 SET fld1 = -2 WHERE Id=1"