var
  _Instance: System.Data.DataSet;
  _dataAdapter: System.Data.OleDB.OleDbDataAdapter;
  _commandBuilder: System.Data.OleDB.OleDBCommandBuilder;
  _connection: System.Data.OleDb.OleDbConnection;
  _selectCommand, uC: System.Data.OleDb.OleDbCommand;
begin
  if not Assigned(_Instance) then
  begin
    _connection := GetConnection; //коннек
    _selectCommand := System.Data.OleDb.OleDbCommand.Create(
      'SELECT * FROM odt_test t WHERE t.id = ?',
      _connection
    );

    with _selectCommand.Parameters.Add('', oleDbType.VarChar) do
    begin
      Value :=  Self.ID;
      Size :=  200 ;
    end;

    _Instance := System.Data.DataSet.Create;

    _dataAdapter := System.Data.OleDb.OleDbDataAdapter.Create(_selectCommand);
    _dataAdapter.Fill(_Instance);


    _commandBuilder := System.Data.OleDB.OleDBCommandBuilder.Create(_dataAdapter);
    // для проверки  
    uC := _commandBuilder.getUpdateCommand;
end;