在单击查询按钮以后，如何先后在两个表中查询数据？

Question

VB中,在单击查询按钮以后，先在第一个表中查询所需数据，并显示查询结果。
如果没有找到任何数据，再到第二个表中查找，并给出提示，数据是否找到！

Answer 1

Dim Rs   As New ADODB.Recordset
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", conn, adOpenDynamic, adLockOptimistic
    If Rs.RecordCount=0 then
       Rs.close
       Rs.Open "select * from table2", conn, adOpenDynamic, adLockOptimistic
       If Rs.RecordCount=0 then
          msgbox "数据没找到!"
       end if 
       ...
    end if