这句select哪里错了!!
Adodc1.RecordSource = "select homeinfo.家庭住址,companyinfo.单位名称 from homeinfo,companyinfo where homeinfo.姓名 = all(select personinfo.姓名 form personinfo where 性别 like '" & Trim(keytxt) & "' ) and companyinfo.本人姓名 = all(select personinfo.姓名 form personinfo where 性别 like '" & Trim(keytxt) & "') "