在Visual Basic 6中处理空记录集

Question

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

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

编辑：我得到的错误是：     运行时错误'3021'：     没有当前记录

Answer 1

检查记录集的EOF和BOF ......

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