Como Pasar Informacion Entre Dos Bases De Datos Con Tablas Identicas?

[MaSSaKKre]

Pues bien, despues de tanto leer por ahi, encontre la solucion para eliminar el password de una base de datos, me guie de la siguiente direccion:
http://www.delphi3000.com/articles/article_1278.asp?SK=

y adecue mi codigo de la siguiente manera

Código Delphi [-]
 
//funcion
 
Function CompactAndRepair(sOldMDB : String; sNewMDB : String) : Boolean; 
const 
         sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDBatabase Password=123456;'; //abriendo la bd con la contraseña actual
         sProvider1 = 'Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDBatabase Password=;'; //creando la nueva bd sin contraseña o en su defecto se puede poner otra contraseña nueva
var
         oJetEng   : JetEngine;
begin
         sOldMDB := sProvider + 'Data Source=' + sOldMDB;
         sNewMDB := sProvider1 + 'Data Source=' + sNewMDB;
         try 
            oJetEng := CoJetEngine.Create;
            oJetEng.CompactDatabase(sOldMDB, sNewMDB);
            oJetEng := Nil; 
            Result  := True; 
         except 
            oJetEng := Nil;
            Result  := False; 
         end; 
end;

llamado de funcion:

Código Delphi [-]
CompactAndRepair(''+edit2.Text+'', ''+edit1.Text+'');

obvio el edit2 es la ruta actual de la bd y el edit1 es la ruta de la nueva bd, osea donde quedarà una vez creada.
hay que implementarle un nombre temporal a la bd nueva y posteriormente cambiar el nombre desde codigo, al menos en mi caso para lo que la voy a utilizar, asi funciona.

Gracias por la ayuda y ahi esta el code para los que lo puedan necesitar.

Saludos