Handle empty recordset in Visual Basic 6

Question

How can I handle the case when the following statement returns nothing, i.e. a non-existing record?

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

Edit: The error I get is: Run-time error '3021': No current record

Answer 1

Check for EOF And BOF of the record set ...

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