主题：求助 查询结果不存在提示

怎样判断查询结果不存在呢

Dim yddh As String = e.Form.controls("TextBox3").Text
    If yddh IsNot Nothing Then
        Dim filter As String = "号码 = '" & yddh & "'"
        Tables("档案").filter = (filter)
    End If

上述代码中如果想提示“未查找到相关结果' 的提示框 应该怎样做呢

非常感谢，我的窗口是不许表无记录状态，所已查询没有记录的话还是报错，能否遍历到最后一条记录后没有找到的话就提示呢，就是不执行筛选，这个可以吗