如果是选择的原因的话，就简单了。故障原因是由于datagrid1控件和数据库互联造成的，不是bug,在find代码前后加两行代码即可解决,按照你的方式选择也不改变数据，代码如下：
    Adodc1.Refresh
    '如果refresh 不执行 find 则不会update，如果执行就会update订单编号
    Set DataGrid1.DataSource = Nothing
      Adodc1.Recordset.Find ("订单编号='" & 订单编号 & "'")
    Set DataGrid1.DataSource = Adodc1.Recordset

版主果然NB，这样的疑难杂症都解决了，谢谢拉

通常在我设计的程序里不会出现这种情况，因为我尽量避免使用控件。虽然控件好像使用方便，但他的很多控件事件会触发一些你意想不到的状况，有的还会死锁；再就是控制不灵活，最致命的就是打包安装会出问题。在设计状态，你拖一个adodc控件似乎你就可以正常写数据库程序了，但你打包安装到其他机器上（尤其新安装操作系统的机器），你就会发现根本不能运行，这是因为adodc实际上使用了很多其他的dll，而这些dll并没有一起打包，所以不具备实用性。

还有一个问题，就是如果我按照版主的方法，直接将adodc1控件的locktype改成readonly也可以解决。。想问一下这种方法与版主的方法哪个好？

无所谓了，从代码量上说：设置locktype要先关闭记录集，在更改只读锁定，最后打开记录集共三行代码，而断开显示控件的方式则只需2行代码，从执行速度上看，无疑打开关闭的速度要慢。

版主,不用控件？都自己写？不是吧