if ADOQuery2.Locate(adoquery2.fieldbyname('garn').AsString, ADOQuery1.FieldByName('new_str1').AsString, [loPartialKey]) then