MSSQL Datenbank, Select geht nicht

[Jasocul]

Code:

procedure TfrmGettingStarted.Button1Click(Sender: TObject);
begin
 if not dbMain.Connected then
    Exit;
 qryproducts.FetchOptions.AutoClose := False;
 qryproducts.SQL.Clear;
 qryproducts.SQL.Add('SELECT *');
 qryproducts.SQL.Add('FROM kd_data')            ;
 qryproducts.SQL.Add(' WHERE kd_data.kd_vname like');
qryproducts.SQL.Add( QuotedStr(edit1.text)   ); // diese Zeile ändern.
 qryproducts.Open; // [Orders] table rows are accessable here
end;