用:
rsFind.Open "select count(用户名) as Numb from Usysuser where 用户名 = '" & strName & "'", cnData, adOpenDynamic, adLockReadOnly    if rsFind.Filds(0)=0    '没有用户名 =strName 的记录

解决方案 »

  1.   

    将rsfind.open中的adopendynamic改为adopenkeyset 
    或在打开rsfind 前加入rsfind.CursorLocation = adUseClient
    看你的。rsfind的用法了
      

  2.   

    把sql查询出的表付给对象变量。如查询后为空那就是没有啊。不为空就是有。
      

  3.   

    可否用
     if rs.eof and rs.bof then
    .....
    endif
    来用呢?
      

  4.   

    在这里给mazhayang(蚂蚱先生)高分,因为问题不是要返回是否有记录,而是要返回有几个记录,
    TO:hwmys(合适软件)的方法就是我的第一个判断了。
    不能完全使用这个方法来判断是因为要求库中用户名字段不能相同,而增加时只要检查是否存在就可以了,而编辑记录更新时要检查是否库中已经存在了一个,所以,只能返回一个整数来判断。