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
[-]
Function CompactAndRepair(sOldMDB : String; sNewMDB : String) : Boolean;
const
sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDBatabase Password=123456;'; sProvider1 = 'Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDBatabase Password=;'; 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