请老师们帮我看一段代码!急急!!

编译的时候没有出错,一执行(只要在EDIT1中打入字符就出错)

void __fastcall TForm2::Edit1KeyPress(TObject *Sender, char &Key)
{
if (Key==13)

ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from dhhm where dh='"+Edit1->Text.Trim()+"'or ch='"+Edit1->Text.Trim()+"'");
ADOQuery1->ExecSQL();
ADOQuery1->Active=true;
if (ADOQuery1->RecordCount==0)
{
Application->MessageBox("找不到该号码,请重新输入号码!","提示!",MB_OK&MB_ICONWARNING);
return;
}

return;