VB连接SQL一次查询多个结果

Question

小弟对SQL 和 VB 都不太懂。有个问题困扰了我好久 
我试了很多办法都没有解决，下面进入正题 我想查询数据库里不同厂家所对应的不同数据。 
目前我实现的是：自己写语句 
单条查询 然后输出到excel 
可每次都要改其中的查询条件 
能不能一次都查询出来，并输出到EXCEL？ 
EX： 
rs.Open "select * from tensile where gg= 'Φ914×28' and symc = '钢管' and grade = 'X60/L415')", conn, 1, 1 
rs.Open "select * from wtd where gg= 'Φ914×28' and symc = '钢管' and grade = 'X60/L415')", conn, 1, 1 
rs.Open "select * from bend where gg= 'Φ914×28' and symc = '钢管' and grade = 'X60/L415')", conn, 1, 1 
. 
. 
.

Answer 1

数据库设计不合理，一个厂商一个表？
select * from tensile 
union all
select * from wtd 

Answer 2

sql数据库可以用nextrecordset:dim sql as string
dim cn as connection
dim rs as recodrsetsql="select * from tensile where gg= 'Φ914×28' and symc = '钢管' and grade = 'X60/L415');"
sql=sql & "select * from wtd where gg= 'Φ914×28' and symc = '钢管' and grade = 'X60/L415');"
sql=sql & "select * from bend where gg= 'Φ914×28' and symc = '钢管' and grade = 'X60/L415');"
'......
set rs=cn.execute sql
'这儿操作第一个记录集的代码......
set rs=rs.nextrecordset
'这儿操作第二个记录集的代码......
set rs=rs.nextrecordset
'这儿操作第三个记录集的代码......'......

Answer 3

谢谢楼上两位大哥，特别谢谢vbman2003。
wtd是委托单的意思
bend是理化试验里的 拉伸
dwtt是落锤
。
。
。
不是一个厂商一个表