Sql Timeout expired

[value is NULL]

Hi Leute

habe folgendes problem. Ich versuche mittels folgendem code Inserts abzuschießen (ca 2,5 Mio)
jedoch bekomme ich nach einer willkürlichen Zahl an erledigten Inserts ein "Timeout Expired"

denn connect mache ich wie folgt:

Delphi-Quellcode:

function connect(): string;
begin
try
  CoInitialize(nil);
  Conn := TADOConnection.Create(nil);
  Conn.ConnectionString := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info = False;Initial Catalog=mydb;Data Source=localhost';
  Conn.Connected := true;
except
  on e : exception do begin
    Writeln(e.message);
    halt(1);
  end;
end;
end;

anschließend mache ich den insert

Delphi-Quellcode:

function update(sQuerySQL : string) : string;

begin
oTmpQry := TADOQuery.Create(nil);
try
  try
    oTmpQry.Connection := Conn;
    oTmpQry.CommandTimeout := 5000;
    oTmpQry.SQL.Text := sQuerySQL;
    oTmpQry.ExecSQL;
  except
    on e : exception do begin
      Writeln(e.message);
      halt(1);
    end;
  end;
Finally
  oTmpQry.free;
end;
end;

und anschließend das connect close

Delphi-Quellcode:

function close(): string;
begin
try
  Conn.Close;
  conn.Free;

except
  on e : exception do begin
      Writeln(e.message);
      halt(1);
  end;
end;
end;

mein prozedere ist wie folgt, ich lese aus einer anderen db werte aus und bastel mir einen insert string,
und diesen schieße ich mit den obigen prozeduren in eine andere db ab....

irgenwelche Ideen warum ich immer ein Timeout bekomme nach zB 70.000 inserts?

LG