При открытии базы данных FoxPro в приложение Delphi возникает ошибка драйвера внешней базы данных (8961)

unit delphiDBF;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids, ADODB;
 
type
  TForm5 = class(TForm)
    cnDBF: TADOConnection;
    TabDBF: TADOTable;
    GridDBF: TDBGrid;
    dsDBF: TDataSource;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form5: TForm5;
 
implementation
 
{$R *.dfm}
 
procedure TForm5.Button1Click(Sender: TObject);
var
AppFolderPath: string;
begin
// подключаемся к ДБФ и выводим данные в таблицу
AppFolderPath:=copy(ExtractFilePath(Application.ExeName),1,length(ExtractFilePath(Application.ExeName))-1);
 
 
    TabDBF.Active:=false;
    CnDBF.Connected:=false;
 
//    CnDBF.ConnectionString:='Provider=MSDASQL;Password="";Persist Security Info=True;Data Source=Файлы dBASE;Mode=ReadWrite;Initial Catalog='+AppFolderPath;
          CnDBF.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source="' +AppFolderPath + '";Extended Properties="DBASE IV;";"';
//    CnDBF.DefaultDatabase:=AppFolderPath;
//    cnDBF.LoginPrompt:=false;
          CnDBF.LoginPrompt:=false;
          cnDBF.Mode:=cmReadWrite;
          CnDBF.Connected:=true;
 
    CnDBF.Connected:=true;
// err.dbf находится в папке  AppFolderPath (в данном случае в папке с программой)
    TabDBF.TableName:='err';
    TabDBF.Active:=true;
 
// Подключение выполнено
 
 
end;
 
procedure TForm5.Button2Click(Sender: TObject);
begin
   TabDBF.Append;
   TabDBF.FieldByName('sl_id').Value:=0;
   TabDBF.FieldByName('id_med').Value:=0;
   TabDBF.FieldByName('ter_mu').Value:=0;
   TabDBF.FieldByName('kod_mu').Value:=0;
   TabDBF.FieldByName('kod_err').Value:=0;
   TabDBF.FieldByName('Prim').Value:='новая строка';
   TabDBF.Post;
end;
 
end.

ADOConnection1.ConnectionString := 'Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="Driver={Microsoft Visual FoxPro Driver};UID=;' +
'SourceDB=C:\Documents and Settings\Sergey\Рабочий стол\дипломный проект1\дипломный проект\база.dbc;SourceType=DBC;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"'

ADOConnection1.ConnectionString := 'Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="Driver={Microsoft Visual FoxPro Driver};UID=;' + 
'SourceDB=L:\перед уходом\abonent_d24016\DATABASE\abonentcheck.dbf;SourceType=DBC;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"'