Передача данных в Access

Sub Tab_рез1()
Set oDS = CreateObject("Scripting.Dictionary")  ' Создаем словарь
Set oDNKA = CreateObject("Scripting.Dictionary")  ' Создаем словарь
 
SOOT
Dim MI(), MR(), S() As String
Dim LR, R, C, T
Dim NumP()
 
Dim oDP: Set oDP = CreateObject("Scripting.Dictionary")  ' Создаем словарь
With Worksheets("рез1")
    LR = .Cells(.Rows.Count, 1).End(xlUp).Row
    MI = Range(.Cells(3, 1), .Cells(LR, 30))
End With
        For R = 1 To LR - 2
            T = ""
            If MI(R, 1) <> "#" Then
                If MI(R, 2) <> "#" Then
                    If Not oDNKA.exists(MI(R, 3)) Then
                        For C = 1 To 6
                            If R > 1 And C = 6 Then
                                If oDS.exists(MI(R, C)) Then
                                   T = T & oDS.Item(MI(R, C)) & ";"
                                Else
                                Debug.Print MI(R, C)
                                Stop
                                End If
                
                            Else
                                T = T & MI(R, C) & ";"
                            End If
                            
                        Next C
                        If R = 1 Then
                            oDP.Item(T) = MI(R, 7)
                        Else
                           oDP.Item(T) = oDP.Item(T) + Abs(MI(R, 7))
                        End If
                    End If
                End If
            End If
        Next R
MR = oDP.Keys
'удаление листа
If WorksheetIsExist("Tab_рез1") Then
Application.DisplayAlerts = False
Worksheets("Tab_рез1").Delete
Application.DisplayAlerts = True
End If
 
With Worksheets.Add 'добавить лист
.Name = "Tab_рез1"
For R = 0 To UBound(MR)
    S = Split(MR(R), ";")
        For C = 0 To UBound(S)
            .Cells(R + 1, C + 1) = S(C)
        Next C
        .Cells(R + 1, C) = oDP.Item(MR(R))
Next R
End With
MsgBox "OK", 64, ""
End Sub