Problemas con Clientdataset.Open;

[jmlifi]

me da el siguiente error: "Database server error: unassigned code"

Código Delphi [-]
procedure SQLBuscaAlbaran(Tabla: TSQLQuery; cdTabla : TClientDataSet; N_Alb: string);
begin
with Tabla,Sql do begin
     Add('SELECT Pedidos.CODCLIENTE, Pedidos.PEDIDO, Pedidos.REF, Pedidos.F_PED, Pedidos.F_ENT, Pedidos.CANT, LISTO, COMPLETADO,');
     Add('Pedidos.FACTURA, Pedidos.ALBARAN, Pedidos.N_FACT, Pedidos.CODDIR, Pedidos.REPOSICION,Pedidos.CERTIFMAT,Pedidos.USUARIO,');
     Add('Pedidos.MATEMPRESA,Pedidos.REF2,Pedidos.PLANO,Pedidos.EMPRESA,Pedidos.SUBCON,Pedidos.TIPOSUBCON  ,');
     Add('Clientes.NOM Cliente, Clientes.Almacen,');
     Add('Clientes.Clase,Clientes.Depto, Clientes.Trabexclusivo');
     Add('FROM PEDIDOS Pedidos');
     Add('left outer join clientes on pedidos.codcliente=clientes.codigo');
     Add('WHERE Pedidos.PEDIDO= (');
     Add('SELECT Albaran.PEDIDO FROM Albaran WHERE Albaran.N_ALB=' + N_Alb +')');
     Add('ORDER BY pedidos.PEDIDO');
  end;
CdTabla.Open;
end;