Private Sub Form_Unload(Cancel As Integer)
Dim I As Integer
On Error GoTo errhandle:
AdodcMain.Refresh
AdodcMain.Recordset.MoveFirst '指向第一条记录
For I = 1 To AdodcMain.Recordset.RecordCount '记录的数量.
'删除所有用户的IP及端口的 Index 的值.
AdodcMain.Recordset("IP") = "0.0.0.0"
AdodcMain.Recordset("远程端口") = 0
AdodcMain.Recordset("Index") = 0
AdodcMain.Recordset.MoveNext '指向下一条记录
DoEvents '???? 做 事件?????????
Next I
AdodcMain.Recordset.Update
Exit Sub
errhandle:
MsgBox Err.Description
End Sub
请问:为什么会出现如下错误.
还有. DoEvents 这语句是什么作用.