你的程序进入要密码

没密码，修改了，无法调试  
把密码发我吧

同样，这里也会错:
Private Sub CmdNext—Click()

　　Data1.Recordset.Next　　 ′ 把当前记录指向后一个

　　If Data1.Recordset.EOF=True then ′ 如果已经指向到末记录的后一位置

　　   Data1.Recordset.MoveLast ′ 则要指向到末记录，以防超出记录集

　　End If

End Sub

BOF和EOF也是记录集的两个属性，标识当前记录位置是否在第一条记录之前或在最后一条记录之后。

你自己改下试试。

Move方法群组是用于移动记录，包含MoveFirst、MoveLast、MoveNext和MovePrivious方法。
注意：当在最后一个记录时，如果使用了MoveNext方法时，EOF的值 会变为True，如果再使用MoveNext方法就会出错，对于MovePrevious方法如果向前移结果也是同样。
' 下一条记录
Private Sub cmdNext_Click()
    Data1.Recordset.MoveNext
    If Data1.Recordset.EOF = True Then
         Data1.Recordset.MoveLast
    End If
End Sub

' 上一条记录
Private Sub cmdPrevious_Click()
     Data1.Recordset.MovePrevious
     If Data1.Recordset.BOF = True Then
           Data1.Recordset.MoveFirst
     End If
End Sub

密码在数据库access中啊　高级操作员是１１１　收银员是２２２　服务员是３３３

把那里改了也不行啊

问题解决了！

你用到了Data1的动态记录集对象Recordset,即Data1.Recordset,而在你的这个过程中你没有设置Data1.DatabaseName   =   App.Path   &   "\db1.mdb"   ，并没有初始化Data控件的动态记录集对象，也就是说这个时候动态记录集都还不存在，又哪来Data1.Recordset.EOF呢？是不是？   所以你应该在设计中将Data1控件的RecordSource属性设置好（选定数据库文件中的一个表名也可以），不过，如果你在设计时没有指定Data1控件的DatabaseName属性，只是在窗体装载过程中用代码Data1.DatabaseName   =   App.Path   &   "\db1.mdb"   来指定数据库名，那么你就得在代码中设置Data1.RecordSource属性，这样你可能就不会发现有错了，下面是我修改过的代码:
Private Sub MDIForm_Activate()
'设置操作员权限
Data1.DatabaseName = App.Path & "\kfgl.mdb"
Data1.RecordSource = "select * from   qxsz"
Data1.Refresh
With Data1.Recordset
If .BOF = True Then .MoveFirst
.FindFirst "操作员 like " + Chr(34) + Chr(34) + ""
If .NoMatch Then
Else
  frmmain.kfyd.Enabled = .Fields("客房预订")
  frmmain.zjyj.Enabled = .Fields("追加押金")
  frmmain.ZSDJ.Enabled = .Fields("住宿登记")
  frmmain.tsjz.Enabled = .Fields("退宿结账")
  frmmain.tfdj.Enabled = .Fields("调房登记")
  frmmain.kfsz.Enabled = .Fields("客房设置")
  frmmain.kfcx.Enabled = .Fields("客房查询")
  frmmain.ftck.Enabled = .Fields("房态查看")
  frmmain.zscx.Enabled = .Fields("住宿查询")
  frmmain.tscx.Enabled = .Fields("退宿查询")
  frmmain.sftx.Enabled = .Fields("宿费提醒")
  frmmain.xstj.Enabled = .Fields("客房销售统计")
  frmmain.czysz.Enabled = .Fields("操作员设置")
  frmmain.mmsz.Enabled = .Fields("密码设置")
  frmmain.csh.Enabled = .Fields("初始化")
  frmmain.qxsz.Enabled = .Fields("权限设置")
End If
End With

End Sub

调试通过！！！