Conexion ADO , argumento no valido

[VRO]

Hola, tengo otro problemilla con la conexion ADO

vereis creo la conexion ado con código, de la siguiente forma:

Código Delphi [-]
  var 
            DATABASENAME:String;
         catalog:_catalog;
          ConnectionString,fecha,f,l,lect,con:String;
          TS:TStringList;
          Index,I:Integer;
  begin
     Catalog:=CreateComObject(StringToGUID('ADOX.Catalog')) as _Catalog;
      ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ DATABASENAME;
       //Create new Access database por primera vez
       Catalog.Create(ConnectionString);
       //Conectamos con la base de datos creada.
       datos.ADOConnect.ConnectionString:=ConnectionString+';Persist Security Info=False';
       datos.ADOConnect.Connected:=true;
       //Creamos la tabla texportar.
       datos.ADOQ.SQL.Clear;
  datos.ADOQ.SQL.Add('Create table texportar(registro int IDENTITY (1, 1)' +
   ' NOT NULL ,contador int not null,fecha' + 
   ' date not null,lectura float,consumo float,primary key(registro))');
       datos.ADOQ.ExecSQL;
   
       datos.IBADOQ.First;
       while datos.IBADOQ.Eof=false do
       begin
           lect:=FloatToStr(round(datos.IBADOQ.fieldbyname('lectura').asfloat));
           con:=FloatToStr(round(datos.IBADOQ.fieldbyname('consumo').asfloat));
  
          datos.ADOQ.SQL.Clear;
  datos.ADOQ.SQL.Add('insert into texportar(contador,fecha,lectura,consumo)values('+ datos.IBADOQ.fieldbyname('numero').text+
  ,#'+FormatDateTime('mm/dd/yy',datos.IBADOQ.fieldbyname('fecha').asdatetime)+
  '#,'+lect+','+con+')');
          datos.ADOQ.ExecSQL;
   
         datos.IBADOQ.Next;
       end;
  end;

me crea la base de datos bien pero la tabla no, pero otro dato curioso sólo ocurre esto cuando paso muchos datos , aproximadamente un total de 700000
datos.

Y cuando la base de datos no esta creada, cuando ya está creada no da ningun error, es decir basicamente el error le da con este código ó por algun procedimiento interno, no se.

Si alguien conoce este error y porque suele dar se lo agradeceré eternamente.

Gracias de antemano