Парсинг из текстовой выгрузки в БД аксесс

Private Sub TextFileTo_ADO_Recordset_001(sFilePath$)
Dim cn As Object 'ADODB.Connection - и на позднем связываниии = нормально! :)
Dim rs As Object 'ADODB.Recordset
Dim sVal$, sFolderPath$, sFileName$
Dim lRecCount&
 
Const iStrLen% = 80: Const iStrCiunt% = 15 'Для вывода только
 
'Рубим путь до последнего левого слеша ("\")
    sFolderPath = Mid(sFilePath, 1, InStrRev(sFilePath, "\")) 'Путь к папке
    sFileName = Mid(sFilePath, Len(sFolderPath) + 1)          'Имя файла
 
    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
 
'Параметры подключения:
    With cn
        .Provider = "Microsoft.ACE.OLEDB.12.0;"
         'Путь к папке с файлом - типа : "d:\ ... \"
        .Properties("Data Source") = sFolderPath
        .Properties("Extended properties") = "text;HDR=No;FMT=Delimited;"
        .Open
    End With
 
    rs.CursorLocation = 3    ' 3 = Client (adUseClient)
    sVal = "SELECT * FROM [" & sFileName & "]"
    rs.Open sVal, cn, 3     ' 3 = Static (adOpenStatic)
    lRecCount = rs.RecordCount
    
    sVal = "Набор [rs] содержит: " & lRecCount & _
        "  записей." & vbCrLf & String(iStrLen, "=")
    Debug.Print sVal
 
 
    If lRecCount > 0 Then
        With rs
            Do Until .EOF
                'выводим в оперативное окошко "обрубок" слева
                Debug.Print Mid(rs(0), 1, iStrLen)
                .MoveNext
                If rs.AbsolutePosition > iStrCiunt Then Exit Do
            Loop
        End With
    End If
 
    rs.Close: Set rs = Nothing
    cn.Close: Set cn = Nothing
 
End Sub