如何将三个sql select语句与三个记录集结合起来

Question

大家好我是VBA的新手，

我有一个用户列表，每次我需要为每次使用运行sql select查询。我在for循环中编写查询。而且我想要返回三种类型的输出，基于上面列表用户的三个条件。因为我已经在三个for循环中写了三个sql select statments和recordset。 但这需要时间。任何人都可以帮助我在单个for循环中编写所有sql语句和recoreset吗？

我的代码是：

for i = 1 to 10
name= thisworkbook.sheets(1).cells(i,1).value
ssql="select resultpro from empwork where resultpro = 'P' and pname= '"& name &"'"
rs.open cn,ssql
thisworkbook.sheets(1).cells(i,5).value= copyofrecordset rs
next

for j = 1 to 10
name= thisworkbook.sheets(1).cells(j,1).value
ssql="select resultpro from empwork where resultpro = 'a' and pname= '"& name &"'"
rs.open cn,ssql
thisworkbook.sheets(1).cells(j,6).value= copyofrecordset rs
next

for k = 1 to 10
name= thisworkbook.sheets(1).cells(k,1).value
ssql="select resultpro from empwork where resultpro = 'holi' and pname= '"& name &"'"
rs.open cn,ssql
thisworkbook.sheets(1).cells(k,7).value= copyofrecordset rs
next

我想在for循环中编写查询，而不是三个for循环。任何人都可以帮我吗？ 谢谢你的帮助。