[GerTorresM]

<delphi>function ConexionBDADO(pNombreBaseDatos, pContrasena: String): TAdoConnection;
var ConStr_local : String;
BaseDatosAplicacion : TAdoConnection;
begin
Result:= nil;
if FileExists(pNombreBaseDatos) then
begin
ConStr_local:= 'Provider=Microsoft.Jet.OLEDB.4.0; ' +
'User ID=Admin;'+
'Data Source=' + pNombreBaseDatos + ';' +
'Persist Security Info=False;' +
'Jet OLEDBatabase Password=' + pContrasena ;
BaseDatosAplicacion:= TADOConnection.Create(nil);
BaseDatosAplicacion.ConnectionString:= ConStr_local;
BaseDatosAplicacion.LoginPrompt:= False;
BaseDatosAplicacion.open;
Result:= BaseDatosAplicacion;
end
else begin
Showmessage('No existe la base de datos');
exit;
end;
end;
</delphi>