Запись в ячейку БД

var
  connection: TADOConnection;
  table: TADOTable;
  dataSource: TDataSource;
begin
  connection :=TADOConnection.Create(Owner);
  connection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\База' +
                                 ' данных1.mdb;Mode=Share Deny None;Extended Properties=' +
                                 '"";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:'  +
                                 'Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking ' +
                                 'Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions='+
                                 '1;Jet OLEDB:New Database Password='+
                                 '"";Jet OLEDB:Create System Database=False;';
  connection.LoginPrompt := False;
  connection.Open;
  table := TADOTable.Create(Owner);
  table.Connection := connection;
  table.TableName := 'tab';
  table.Active := True;
  dataSource := TDataSource.Create(Owner);
  dataSource.DataSet := table;
  table.Edit;
  table.FieldByName('fio').AsString := 'Петров Петр Петрович';
  table.Post;
  connection.Close;
end;

  table.Post;