ADOQUERY no trabaja....

[[Caral]]

Hola

Código Delphi [-]
begin 
dm.qlab.SQL.Clear; 
      if combobox1.text <> 'Seleccione' then    
      Begin       
      dm.qlab.sql.text := 'Select * from stock';
      dm.qlab.Open;
      end    
     else    
     Begin      
     Showmessage('Debe seleccionar un criterio de busqueda antes de presionar el boton');    
     end; 
     if combobox1.Text = 'PRODUCTO' then 
     Begin 
     dm.qlab.Close;
     dm.qlab.SQL.text := 'Select * from stock  where producto = ' + QuotedStr(Edit1.text); 
     dm.qlab.Open;
end; 
     if combobox1.Text = 'MZ' then 
     Begin
     dm.qlab.Close; 
     dm.qlab.SQL.text := 'Select * from stock  where subpro = ' + QuotedStr(Edit1.text); 
    dm.qlab.Open;end; 
end;

Saludos