Соединение = Новый COMОбъект("ADODB.Connection");
   Соединение.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Mode=ReadWrite;Extended Properties=""DSN=Файлы dBASE;Collate=Russian;DBQ="+
                                   СокрЛП(ИмяФайла)+";Collate=Russian;Null=Yes;Deleted=Yes;""";
   
   Соединение.Open();
   Команда = Новый COMОбъект("ADODB.Command");
   Команда.ActiveConnection = Соединение;


   
   ТекстЗапроса = "SELECT Count(1) as count FROM list";
   Команда.CommandText = ТекстЗапроса;
   Команда.CommandType = 1;
   Запрос = Новый COMОбъект("ADODB.RecordSet");
   countAll=Число(Запрос.Fields("count").Value);

   
   
   
   Запрос = Команда.Execute();


   Запрос.Close();

Записей примерно 1000, в первый раз нормально все, потом при запуске обработки: Произошла исключительная ситуация (Microsoft OLE DB Provider for ODBC Drivers): [Microsoft][Драйвер ODBC dBase] Недостаточно системных ресурсов.

Помогает перезакрытие программы