>
> Could you please view the datamodule in text mode and paste the text
> back to the list?
>
> Helen
>

unit dm02;

interface

uses
SysUtils, Classes, IB_Components;

type
TDataModule3 = class(TDataModule)
IB_Connection1: TIB_Connection;
IB_Query1: TIB_Query;
IB_DataSource1: TIB_DataSource;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
DataModule3: TDataModule3;

implementation

{$R *.dfm}

procedure TDataModule3.DataModuleCreate(Sender: TObject);
begin
if not ib_connection1.Connected then
ib_connection1.Connect;
with ib_query1 do
begin
if not ib_transaction.started then
ib_transaction.StartTransaction;
Open;
end;
end;

end.