Problema con DBLookupCombo

[sanz]

Hola a todos tengo un pequeño problema, tengo un dblookupcombobox en donde estan articulos, quiero que cuando yo escoga cualquiera de esos articulos me aparezca el precio en un endit pero no me sale nada mas bien en el dblookupcombobox los datos desaparecen el codigo que utilizo es el siguiente:

Código Delphi [-]
 
procedure Tfrmfactura.DBLookupComboBox2Click(Sender: TObject);
begin
dmsalvador.ADOQarticulo.SQL.Clear;
dmsalvador.ADOQarticulo.Close;
dmsalvador.ADOQartuiculo.SQL.Add('Select * from articulo where codart='+dblookupcombobox2.Text);
dmsalvador.ADOQarticulo.Open;
dmsalvador.ADOQarticluo.Refresh;
if dmsalvador.ADOQarticulo.RecordCount > 0 then
  edit2.Text:=dmsalvador.ADOQArticuloPrecio.Text;
end;

Me olvidaba trabajo con delphi 7 y access xp