Rs.EditMode или как обновить данные в Базе Данных VBA (Excel to Access)

("SELECT * FROM test WHERE name = "user1" And dd = 1")

rs.EditMode
For i = 0 To 1
        rs.Fields(3) = .Cells(1, 3).Value
        rs.Fields(4) = .Cells(1, 4).Value
Next
rs.Update

Cells(1, 1).CopyFromRecordset rs

cn.Open

rs.Open

Set rs = New ADODB.Recordset

ComboBox1.ListIndex = 0
 
For i = 1 To 12 'если 11 то норм, не ругается, но не дописывает одну строчку с данными
 
ComboBox2.ListIndex = 0
 
For Z = 1 To 31 'если 30 то норм, не ругается, но не дописывает одну строчку с данными
 
Set rs = New ADODB.Recordset
rs.Open Source:=TextBox2.Value, ActiveConnection:=cn, CursorType:=adOpenStatic, LockType:=adLockOptimistic
rs.AddNew
            rs.Fields(3) = .Cells(1, ComboBox2.ListIndex * 3 + 3).Value
            rs.Fields(4) = .Cells(1, ComboBox2.ListIndex * 3 + 4).Value
rs.Update
ComboBox2.ListIndex = ComboBox2.ListIndex + 1 'ругаемся тут
Next Z
ComboBox1.ListIndex = ComboBox1.ListIndex + 1 'ругаемся тут
Next i

On Error Resume Next

Set rs = New ADODB.Recordset
rs.Open Source:=TextBox2.Value, ActiveConnection:=cn, CursorType:=adOpenStatic, LockType:=adLockOptimistic
 
For i = 0 To ComboBox1.ListCount - 1
    For Z = 0 To ComboBox2.ListCount - 1
        rs.AddNew
        rs.Fields(3) = .Cells(1, ComboBox2.List(Z) * 3 + 3).Value
        rs.Fields(4) = .Cells(1, ComboBox2.List(Z) * 3 + 4).Value
        rs.Update
        'ComboBox2.ListIndex = ComboBox2.ListIndex + 1 'ругаемся тут - потому что нафиг ненужная фигня. Я намекаю-намекаю, что надо переменные цикла использовать....
    Next Z
    'ComboBox1.ListIndex = ComboBox1.ListIndex + 1 'ругаемся тут
Next i