Импорт данных таблицы .xls в таблицу Аксесс и их обработка

Sub readlogs(logfile)
    Dim p, d, TextStream, file, i
    Dim rst As DAO.Recordset
    Dim fso As Object
    
    Set rst = CurrentDb.OpenRecordset("select * from Temp")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.getfile(logfile)
    Set TextStream = file.OpenAsTextStream(1)
    While Not TextStream.AtEndOfStream
        d = TextStream.ReadLine() ' & vbCrLf
        If d Like "*1684####*" Or d Like "*1690####*" Then
            p = Split(d, ",")
            If UBound(p) >= 2 Then
                rst.AddNew
                rst!file = logfile
                rst!datefile = Now
                For i = 0 To 2
                    If p(i) Like "*1684####*" Or p(i) Like "*1690####*" Then
                        rst!ДанныеЧисло = p(i)
                        rst!ДанныеСтрока = p(i + 1)
                        Exit For
                    End If
                Next
                rst.Update
            End If
        End If
    Wend
End Sub

readlogs "путь\имяфайла"

readlogs "диск:\путь\C_S2LK_5116_2_CPU_M1(482)_20171030092021.log"

readlogs Me.PathDB