这段修改的代码运行时，提示未找到方法或数据成员
Private Sub Cmd_Modi_Click()
  Dim Pos As Integer
  '判断是否选择了有效的数据
  If Adodc1.Recordset.EOF = True Then
    MsgBox "请选择要修改的记录"
    Exit Sub
  End If
  '保存当前的记录位置
  Pos = Adodc1.Recordset.AbsolutePosition
  With FrmCirEdit
  '设置修改状态
  .Modify = True
  '设置OriId
  .OriCirId = Adodc1.Recordset.Fields(0)
  '读取编号
 .txtBh = Trim(Adodc1.Recordset.Fields(1))
  .txtName = Trim(Adodc1.Recordset.Fields(2))
  .DataComboDep.Text = Trim(Adodc1.Recordset.Fields(3))
 .ComboState = Trim(Adodc1.Recordset.Fields(4))
 .txtMemo1 = Trim(Adodc1.Recordset.Fields(5))

  .Show 1
  End With
  '修改数据后刷新显示
 ' MyCir.Update (OriCirId)
   ' MsgBox ("数据已xiugai")
  RefreshData
  '恢复到回来的位置
  Adodc1.Recordset.Move Pos - 1
End Sub

FrmCirEdit没有OriCirId方法或数据成员

请教Artless，CirId是自动编号adodc中第一个字段，应该怎么改呢？谢谢！

OriCirId是什么？

OriCirId
是需要修改的编号,问题已解决.

而且在过程Private Sub Cmd_Modi_Click()中并没有FrmCirEdit这个对象的定义或获取，FrmCirEdit这个东西应该是个全局性的对象吧！