去掉单引号Adodc1.RecordSource= "select * from 客户信息 where 客户姓名 = "&Text1.text&""
有可能不是这一句引起的.你看一下这一句的前后有没有其他的问题
