Public Function ImportTxt(FilePath As String, TopRow As Boolean) As Boolean
    On Error GoTo BkmErr
    Dim RowCount As Long
    Dim iFN As Long
    Dim m_FileSize As Long
    Dim tmpStr1 As String
    Dim tmpStr2 As String
    Dim LastStrNum As Long
    Dim Schema As String
    Dim fName As String
    Dim fPath As String
    fName =  "tmp.txt" 
    fPath = App.Path
    FileCopy FilePath, fPath &  "\"  & fName
    tIni.Seek  "ImportRange" , adSeekFirstEQ
    If tIni!iniVal <> FilePath Or modBase.GetTab( "tXls" ) = False Then
    'диапазон не импортировался
        Dim myDb As Access.Application
        strPath = App.Path & "\xls2dbf.mdb" 'your Accessfile
        Set myDb = CreateObject( "Access.Application" )
        With myDb
        .OpenCurrentDatabase strPath
        If modBase.GetTab( "tXls" ) = True Then
        'если таблица существует - удалить её
            Call modBase.CloseXls
            .DoCmd.DeleteObject acTable, "tXls"
            Start = Timer
            Do While Timer < Start + 4
                DoEvents    ' Передает управление другим процессам.
            Loop
    
        End If
        If tSpc.Index <>  "PrimaryKey"  Then
            tSpc.Requery
            tSpc.Index =  "PrimaryKey" 
        End If
        tSpc.Seek CurShbID, adSeekFirstEQ
        If tSpc!SpecType =  2  Then
            .DoCmd.TransferText acImportFixed, CurShbID,  "tXls" , FilePath
        ElseIf tSpc!SpecType =  1  Then
            .DoCmd.TransferText acImportDelim, CurShbID,  "tXls" , FilePath
        End If
        
        End With
        Set myDb = Nothing
        tIni.Update  "iniVal" , FilePath
    End If
    Start = Timer
    Do While Timer < Start +  4 
        DoEvents    ' Передает управление другим процессам.
    Loop
    Set tXls = New ADODB.Recordset
    With tXls
    .ActiveConnection = CnPro
    If TopRow = False Then
        .Source =  "tXls" 
    Else
        .Source =  "SELECT TOP 30  * FROM tXls"
    End If
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .CursorLocation = adUseServer
    .Open
    End With
    ImportTxt = True
    Exit Function
BkmErr:
    ImportTxt = False
End Function

'функция проверки наличия таблицы по её имени
Public Function GetTab(TabNm As String) As Boolean
    Dim dRs As ADODB.Recordset
    GetTab = False
    Set dRs = CnPro.OpenSchema(adSchemaTables)
    Do Until dRs.EOF
        If dRs!TABLE_TYPE = "TABLE" Or dRs!TABLE_TYPE = "LINK" Then
             If dRs!TABLE_NAME = TabNm Then
             'обнаружена таблица
'                dRs.Delete
                GetTab = True
                Exit Do
             End If
        End If
        dRs.MoveNext
    Loop
    dRs.Close
End Function