adods.CommandText :='select dno from two where dno=' + qhstr;
qhstr是个字符串变量,为什么出错?