Recordset.AddNew ADO VBA, генерирующий дескриптор строки, ссылающийся на удаленную строку или строку, помеченную для удаления

Я программно добавляю несколько записей в список точек обмена, чтобы сэкономить время по сравнению с использованием формы на точке обмена, поскольку иногда мне приходится добавлять до 50 записей в любой момент времени. Он работал нормально, а затем макрос был передан другим людям в регионе для использования, и как только это было сделано, он больше не работает. Я получаю дескриптор строки, ссылающийся на удаленную строку или строку, помеченную как ошибка удаления, как только она попадает в rst.AddNew. Я могу получить набор записей и отобразить его все, и он совпадает с тем, что отображается в списке точек доступа, поэтому я не совсем уверен, почему он внезапно перестал работать. Я знаю, что перебирать все в цикле - не самый эффективный способ сделать это, и было бы лучше записать все это в массив, но у меня был кризис времени, и в данный момент было проще написать грубую силу.

Sub FRC_Upload()

Dim Connect As ADODB.Connection
Dim rst As ADODB.Recordset
Dim mySQL As String
Dim LastRow As Long
Dim MyWorkbook As Workbook


Set MyWorkbook = Workbooks("FRC Upload.xlsm")


LastRow = MyWorkbook.Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row


Set Connect = New ADODB.Connection
Set rst = New ADODB.Recordset


mySQL = "SELECT * FROM [FRC];"


With Connect
    .ConnectionString = _
    "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=URL for my sharepoint list;"
    .Open
End With

rst.Open mySQL, Connect, adOpenDynamic, adLockOptimistic


    For i = 2 To LastRow

        rst.AddNew
            rst.Fields("Title") = MyWorkbook.Sheets("Data").Range("A" & i)
            rst.Fields("MA") = MyWorkbook.Sheets("Data").Range("B" & i)
            rst.Fields("ScheduleDate") = MyWorkbook.Sheets("Data").Range("C" & i)
            rst.Fields("AccountNumber") = MyWorkbook.Sheets("Data").Range("D" & i)
            rst.Fields("WorkorderNumber") = MyWorkbook.Sheets("Data").Range("E" & i)
            rst.Fields("WorkOrderType") = MyWorkbook.Sheets("Data").Range("F" & i)
            rst.Fields("RescheduleClassification") = MyWorkbook.Sheets("Data").Range("G" & i)
            rst.Fields("Comments") = MyWorkbook.Sheets("Data").Range("H" & i)
    
    Next

    rst.Update


    If CBool(rst.State And adStateOpen) = True Then rst.Close
    If CBool(Connect.State And adStateOpen) = True Then Connect.Close

End Sub