Kayıt aramada ADOQuery error mesajı

[kazimates]

Kıymetli arkadaşlar,
MSSQL2000 server ve delphi5 de bir tablodaki, edit alanına yazılan bir kayıdı bulmasını istiyorum ve bunun içinse edit31 in OnChange parametresinde şu kodu yazıyorum.

adoquery1.SQL.Clear;
adoquery1.Close;
adoquery1.SQL.Add('select * from DISITABLE where KULAKNO LIKE'+QuotedStr('%'+Edit31.Text+'%'));
adoquery1.Open;

sonuç olaraksa 1. karakterden sonra 2. karakteri yazarken program aşağıdaki gibi bir hata vererek programı sonlandırıyor. Bunu acaba nasıl çözebiliriz?

Project Project1.exe raised exception class EDatabaseError. with message 'ADOQuery1: Cannot perform this operation on an open dataset'. Process stopped. Use Step or Run to continue.

[csyasar]

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from DISITABLE where KULAKNO LIKE'+QuotedStr('%'+Edit31.Text+'%'));
adoquery1.Open;