Set ExcelConn = New ADODB.Connection
  
  With ExcelConn
  
    .Provider = "MSDASQL"
    .ConnectionString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
                        "DBQ=" + file + ";" & _
                        "ReadOnly=TRUE;"

    Debug.Print .ConnectionString
    .Open

    ' Вот эта хрень не работает!
    Set x = .GetSchema("TABLES")

    Set rs = .Execute("SELECT * FROM [Лист1$]")
    For Each x In rs.Fields
       Debug.Print x.Name
    Next
     
    .Close

Private Sub btnLoadFile_Click()

  Dim file As String, str As String, strCnt As Integer
  Dim xlsConn As ADODB.Connection, xlsSchema As ADODB.Recordset, xlsList As String, xlsRs As ADODB.Recordset
  Dim FileId As Integer, f As ADODB.Field
  
  file = GetSetting(CurrentProject.Name, Me.Name, "btnLoadFile_LastFile")
  
  file = Trim(SelectTxtFile(file))
  
  If file = "" Then
    MsgBox "Ôàéë íå óêàçàí.", Buttons:=vbOKOnly + vbInformation, Title:=Me.Name
    Exit Sub
  End If
  
  If (InStrRev(file, ".") = 0) Or (InStrRev(file, ".") <= InStrRev(file, "\")) Then
    file = file + ".xlsx"
  End If
  
  If Dir(file) = "" Then
    MsgBox "&#212;&#224;&#233;&#235; [" + file + "] &#237;&#229; &#241;&#243;&#249;&#229;&#241;&#242;&#226;&#243;&#229;&#242;.", Buttons:=vbOKOnly + vbExclamation, Title:=Me.Name
    Exit Sub
  End If
  
  DoCmd.Hourglass True
  
  SaveSetting CurrentProject.Name, Me.Name, "btnLoadFile_LastFile", file
  
  On Error GoTo Err_Click
  
  Set xlsConn = New ADODB.Connection
  strCnt = 0
  
  With xlsConn
  
    .Provider = "MSDASQL"
    .ConnectionString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
                        "DBQ=" + file + ";" & _
                        "ReadOnly=TRUE;"

    .Open
    
    Set xlsSchema = .OpenSchema(adSchemaTables)
    
    xlsList = ""
    While Not xlsSchema.EOF And (xlsList = "")
      
        str = xlsSchema.Fields("TABLE_NAME").value
        
        Set xlsRs = .Execute("SELECT * FROM [" + str + "]")
        
        If xlsRs.Fields(0).Name <> "&#207;&#224;&#247;&#234;&#224;" Then
          xlsRs.Close
        Else
          xlsList = str
        End If
        
        xlsSchema.MoveNext
      
    Wend
    
    xlsSchema.Close
    Set xlsSchema = Nothing
    
    If xlsList = "" Then
    
        MsgBox "&#203;&#232;&#241;&#242; &#241; &#228;&#224;&#237;&#237;&#251;&#236;&#232; &#226; &#244;&#224;&#233;&#235;&#229; [" + file + "] &#237;&#229; &#237;&#224;&#233;&#228;&#229;&#237;.", Buttons:=vbOKOnly + vbExclamation, Title:=Me.Name
    
    Else
    
        With New ADODB.Command
          
          .CommandText = "Finances.accTicketsRC_FileId"
          .CommandType = adCmdStoredProc
          .CommandTimeout = 120
          .NamedParameters = True
          .ActiveConnection = CurrentProject.Connection
          .Parameters.Append .CreateParameter("Return", adInteger, adParamReturnValue)
          .Parameters.Append .CreateParameter("@File", adVarWChar, adParamInput, 512, file)
          .Parameters.Append .CreateParameter("@Id", adInteger, adParamOutput)
          .Execute Options:=adExecuteNoRecords
          
          FileId = .Parameters("@Id")
          
        End With
        
        With New ADODB.Recordset
          .Open Source:="select top(0) * from Finances.TicketsRC_ExcelFileLines" _
                 , ActiveConnection:=CurrentProject.Connection _
                 , CursorType:=adOpenKeyset _
                 , LockType:=adLockBatchOptimistic _
                 , Options:=adCmdText
        
          While Not xlsRs.EOF
            
            .AddNew
            strCnt = strCnt + 1
            
            .Fields("FileId") = FileId
            
            For Each f In xlsRs.Fields
              .Fields(f.Name) = f.value
            Next
            
            xlsRs.MoveNext
          
          Wend
          
          .UpdateBatch
          .Close
        
        End With

        xlsRs.Close
        
        DoCmd.Hourglass False
    
        MsgBox "&#196;&#224;&#237;&#237;&#251;&#229; &#231;&#224;&#227;&#240;&#243;&#230;&#229;&#237;&#251; &#232;&#231; [" + file + "]. &#194;&#241;&#229;&#227;&#238; " + CStr(strCnt) + " &#241;&#242;&#240;&#238;&#234;.", Buttons:=vbOKOnly, Title:=Me.Name
        
    End If
    
    Set xlsRs = Nothing
    
  
  End With
  
  Set xlsConn = Nothing
  
  DoCmd.Hourglass False
  
Exit Sub

Err_Click:
    
    DoCmd.Hourglass False
    MsgBox Error_Descriptions.Translate(Err.Description), Title:=Me.Name

End Sub