找不到记录（该怎么办？？）

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

if adodc1.recordcount<=0 then
   msgbox "无此记录"
   exit sub
end if