try to check for EOF property:

if not rs.EOF then
...

Bill

If I may suggest the following:

dim dbs as DAO.Database
dim rst as DAO.Database

Set dbs = CurrentDB()
Set rst = dbs.OpenRecordSet("Select FirstName From Table1")

' Here's the keypoint....
If not (rst.bof and rst.eof) Then
   ' There is data in the recordset
Else
   ' There is no data in the recordset
End If

Set rst = nothing
Set dbs = nothing

HTH
Rob

Hi,

One other alternative is to check that rst.RecordCount > 0.

Jim