ADOQUERY no trabaja....

[[enecumene]]

Hola, prueba de la siguiente manera:

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

Saludos.