ADODB DBase - Недостаточно системных ресурсов

Соединение = Новый 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();