[Resolvido] Select trazendo resultado vazio

[Renanbg 1]

Olá amigos,

 

esta SQL não esta trazendo nenhum resultado. Tem algo que eu deixei passar despercebido?

 

   QueryBuscaBanco.Close;
  QueryBuscaBanco.SQL.Clear;
  QueryBuscaBanco.SQL.Add('Select Cod_banco, Nome from tbbancos');
  QueryBuscaBanco.SQL.Add('Where Cod_banco = '+QuotedStr(DBEdCodBanco.Text));
  QueryBuscaBanco.Prepare;
  QueryBuscaBanco.ExecSQL;
  Edit2.Text:= QueryBuscaBanco.FieldByName('Nome').AsString;

[Renanbg 1]

opa, a falha estava no ExecSQL, basta substituir por Open.