Adodc1.RecordSource = "select Name from b1 Where Name Like'" & Text1 & "%' order by name"参考模糊查询
我可以，你把工程打包发给我，358106736@qq
