在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