[olbeup]

Modificando la función de ecfisa, podemos copiar cualquier base de datos Origen o Destino

Código Delphi [-]
procedure CloneTable(TableSource, TableTarget: String);
begin
  with TADOQuery.Create(Self) do
  begin
    ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' + 
                        'Data Source=Unidad:\Ruta\BaseDeDatos.mdb;' + 
                        'Persist Security Info=False';

    SQL.Add('SELECT *');
    SQL.Add('  INTO ' + TableTarget);
    SQL.Add('  FROM ' + TableSource);

    ExecSQL;

    Free;
  end;
end;

Un saludo.