Mydb.Open With MyRst .CursorLocation = adUseClient .LockType = adLockOptimistic .CursorType = adOpenKeyset End With MyRst.Open "Money", Mydb '代码出错在此行