WINSOCK无法触发DataArrival事件?

利用WINSOCK写了一个TCP接收程序,接收CAN总线转以太网的报文。
已经使用了Activex EXE多进程技术。

但发现一个问题,如果CAN总线发过来的速度快了或者报文长了。比如 周期50ms每次发50*13=650字节.
WINSOCK工作一小会就停止响应了。如果这时候CAN总线停止发送 WINSOCK只会接收最后一段报文。
中间的都丢失了!!!这怎么办???

'---------------------放入Activex EXE中-------------------------
Option Explicit

Dim AllbytesTotal As Long
Dim Section_Count As Long
Dim strDATA() As Byte

Public Event Progress(theIndex() As Byte, ByVal bytesTotal As Long, ByVal AllbytesTotal As Long, ByVal Section_Count As Long)

Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
'On Error Resume Next

tcpClient.GetData strDATA, vbArray + vbByte


debug.print Section_Count ,now()
Section_Count = Section_Count + 1
AllbytesTotal = AllbytesTotal + bytesTotal

RaiseEvent Progress(strDATA, bytesTotal, AllbytesTotal, Section_Count)

End Sub

今天我分析一下 可能是硬件发送的周期太短 触发DataArrival事件太频繁造成的。 尽管每个包长度不大.
但是,如何处理这种情况。请出出主意啊( ⊙ o ⊙ )!
难道要用IOCP?

http://zhidao.baidu.com/link?url=tCL_QFSEaQrhfJ6D4kR5QTWuW4hxl3BtEihWLdkMrJClB4ctTI5x64OGtcnRqAg06A_2jbWqIouNwmj-tsKqOmPQ1YypsU8-faR_1sA_6K_