类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
VB中,在单击查询按钮以后，先在第一个表中查询所需数据，并显示查询结果。
如果没有找到任何数据，再到第二个表中查找，并给出提示，数据是否找到！
网友回答：
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