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

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

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

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

Dim yddh As String = e.Form.Controls("TextBox3").Text
If yddh <> "" Then
     Dim flt As String = "号码 = '" & yddh & "'"
     Tables("档案").Filter = flt

     If Tables("档案").Rows.Count = 0 Then

          MessageBox.Show("未查找到相关结果")

     End If
End If

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