Vb6 在Visual Basic 6中处理空记录集

当以下语句不返回任何内容（即不存在的记录）时，如何处理这种情况

Form1.data1.RecordSource = "SELECT * " _
                         & "FROM Table " _
                         & "WHERE Column1 = " & txtSomeTextField.Text & ""
Form1.data1.Refresh

编辑：我得到的错误是： 运行时错误“3021”：

---

无当前记录检查记录集的EOF和BOF

If Not rs.EOF And Not rs.BOF Then
   ' You have results
End If

---

有什么问题吗它是否会给您一个错误？在出现错误时，请继续下一步，然后检查err.Number。不，不幸的是，在VB中没有更好的错误处理方法。别忘了最后的错误转到0。@mihi-“VB中没有更好的错误处理方法”我很高兴你不在我的开发团队中！如果我在刷新之前进行检查，则记录集尚未刷新。如果在刷新后执行检查，则无法捕获错误。是的，请先执行查询，将结果放入新的记录集对象，检查记录集对象，然后使用局部变量设置窗体属性。