数据库查询的问题?????????

我的意思是先查询一下此用户是否已经存在,如果不存在就新建一条记录.
Set Rs = ExecuteSQL("Select  *   From users where play=" & Data, "")

             '如果用户存在，就发送账户余额，不存在，就发送"0"
             If Rs.EOF Then
                 Rs.AddNew
                 Rs.Fields("play") = Data
                 Rs.Update
            end if
在执行到rs.eof时会,提示记录集关闭,为什么啊???因为如果用户不存在,记录集应是一个空的.怎么会还是关闭的呢.请各位指点.