vb中MSHFlexGrid数据合并问题

想在某种情况下将两个数据库选择语句筛选出的数据取并集后输出到MSHFlexGrid中,两个数据库的结构是相同的，如：
str1="select * from 表1 where 表1.h="班级一" "
str2="select * from 表2 where 表1.h="班级二" "
str为str1和str2的并集
Set Res = Cnn.Execute(Str)
If Res.EOF Then
   Set MSHFlexGrid1.DataSource = Nothing
Else
   Set MSHFlexGrid1.DataSource = Res