VBA: Передача данных из Excel в Access

'Процедура ЗагрузкаИзExcel
'Загрузка данных с листа Excel в соответствующую по структуре таблицу с указанием
'номера первой строки, содержащей данные. Загрузка ведется до конца диапозона
'параметры:
'Таблица - имя таблицы в которую будут загружаться данные
'Файл - полное имя файла (с путем) рабочей книги Excel
'Лист - имя листа Excel
'ПервСтрока - номер первой строки, содержащей данные
Function ЗагрузкаИзExcel(Таблица As String, Файл As String, Лист, ПервСтрока As Long)
Dim app, wb, rst As New ADODB.Recordset, i As Long, j As Integer
On Error GoTo ErrorHandler
    Set app = CreateObject("Excel.Application")
    Set wb = app.workbooks.Open(Файл)
    rst.Open Таблица, CurrentProject.Connection, adOpenStatic, adLockOptimistic
    With wb.Worksheets(Лист)
        For i = ПервСтрока To .UsedRange.Rows.Count
            rst.AddNew
            For j = 1 To rst.Fields.Count 'Форматы таблиц должны совпадать!
                rst.Fields(j - 1) = .Cells(i, j)
            Next j
        Next i
    End With
    rst.Update
    rst.Close
    wb.Close
    GoTo Done
ErrorHandler:
    MsgBox "Ошибка при загрузке. Ряд " & i & " Столбец " & j
Done:
    Set rst = Nothing
    Set wb = Nothing
    Set app = Nothing
End Function