找不一记录怎么办

Question

Private Sub Combo1_Click()
On Error Resume Next
conn.ConnectionString = connstr
conn.Open
sql = "select * from 运送员工工作 where 姓名 ='" & Combo1.Text & "'and 运送工状态='工作'"
Adodc1.RecordSource = sql
Adodc1.Refresh '刷新
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh 如果第五句如果　　"运送工状态不是　'工作'"（即找不到记录），应该有弹出一个对话框提示找不到，不知道要加上什么语句

Answer 1

dim rs as adodb.recordset
rs.open sql,conn,1,1
if rs.eof then
   msgbox("无记录")
   exit sub
else
   set datagrid1.datasource=rs
   datagrid1.refresh
end if

Answer 2

Private Sub Combo1_Click()
dim rs as adodb.recordset 
On Error Resume Next
set rs=new adodb.recordset 
conn.ConnectionString = connstr
conn.Opensql = "select * from 运送员工工作 where 姓名 ='" & Combo1.Text & "'and 运送工状态='工作'"
rs.open sql,conn,3,2
if rs.eof then
   msgbox "查无记录！"
   exit sub 
esle
   Adodc1.RecordSource = sql
   Adodc1.Refresh '刷新
   Set DataGrid1.DataSource = Adodc1 
   DataGrid1.Refresh 
end if