ADODataSet1.CommandText:='select acc, psw from pers_list '+

'where st_id in '+

'(select st_id from fio '+

'where surname='+''''+'Афонина'+''''+')';