dim str as string 
data1.recordsource=str
data1.refreshstr就是类似"select * from 数据库 where 名称='"& "111"&"' and 年龄='"& "21" &"'"
之类的 sql语句,根据不同条件改变str的值就可以了