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