[Aristarh Dark]

Неправда ваша
Вот код

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.SQL.Text:=
  'CREATE TABLE tbl1 '+
  '('+
  'fld1 OLEOBJECT '+
  ');';
  ADOQuery1.ExecSQL;    
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ADOquery1.sql.text:='Insert into tbl1 (fld1) Values (:b)';
  ADOQuery1.parameters.parseSQL(ADOquery1.sql.text, true);
  ADOQuery1.parameters.parambyname('b').LoadFromFile('c:\111.dbf',ftBlob);
  try
    ADOQuery1.execsql;
  except
    ShowMessage('Ашипка');
    Exit;
  end;
  ShowMessage('Ok');

end;

procedure TForm1.Button3Click(Sender: TObject);
var
DBEngine, Workspace: Variant;

const
dbLangGeneral = ';LANGID=0x0409;CP=1252;COUNTRY=0';
begin
DBEngine := CreateOleObject('DAO.DBEngine.36');
Workspace := DBEngine.Workspaces[0];
Workspace.CreateDatabase('c:\db1.mdb', dbLangGeneral, EmptyParam);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
  ADOConnection1.Connected:=true;
  Application.MessageBox('Ok','Ok');
end;

порядок нажатия кнопок Button3 -> Button4 -> Button1 -> Button2
ADOConnection1.ConnectionString настроен на создаваемую базу
ADOQuery1 настроен на ADOConnection1
Все работает, только загрузка идет на порядок дольше чем если базу создавать средствами Access'a