为什么出错？

Question

放的位置不对。
放到Private Sub Form_OLESetData(Data As DataObject, DataFormat As Integer)中试试

Answer 1

DATA1 对应的记录数是否为0

Answer 2

to:  anshinfo(十万个为什么) (  
   我在此过程中加入了一个msgbox()
可我什么也没看到，
我又在其他的和ole有关的过程中加入一个msgbox()
我还是什么也没看到。

Answer 3

大概是此时数据库中的记录数为0，用任何移动记录的命令或函数都会出错，你可以先判断data1.recordcount，如果小于等于0则不要使用这些指令

Answer 4

绝对不可能记录数为0!(数据库是我自己做的)
只是因为移动语句在 form_load()过程中就出错,
而在其他过程使用就正常（比如在某个按纽按下时）。