Llevar desde Excel a una BD paradox

[ozegarra]

Buenas estuve chekeando este hilo para saber como pasar una tabla excel a firebird.
He seguido todos los pasos pero no me graba los datos en mi tabla firebird, quiza me falta algo (soy nuevo en esto asi que perdonen mi ingenuidad). Les paso las lineas de codigo que tengo.

Código Delphi [-]
AdoDataSet1.Active :=True;
  while not AdoDataSet1.Eof do
  begin
    Table_Importado.Active := True;
    Table_Importado.Append;
    Table_Importado.Fields[0].Value := AdoDataSet1.Fields[0].Value;
    Table_Importado.Fields[1].Value := AdoDataSet1.Fields[1].Value;
    Table_Importado.Fields[2].Value := AdoDataSet1.Fields[2].Value;
    Table_Importado.Active := False;
    AdoDataSet1.Next;
  end;

esto no me marca ningun error, entra al bucle y recorreo todo el excel pero no me graba nada, que es lo que me falta?.

Gracias de antemano por su ayuda.