vb中能否使用union进行联合查询

vb中能否使用union进行联合查询
我在sql查询分析器中运行，没有问题。
到vb程序中，recordcount却为-1

sql = "select * from KeyGuestInfo Union select * from PotentialGuestInfo"
两个表字段类型完全一样，进行简单联合就行。

由于默认的记录集游标是服务器游标，     
  Rs.CursorLocation   =   adUseServer     
  所以返回Rs.RecordCount=-1,     
  应该把服务器游标改为客户端游标，     
  Rs.CursorLocation   =   adUseClient     
  Rs.Open   SqlStr,Conn,CursorType,LockType