：等急： 为什么会把信息累计到一起发送呢？ 如何在循环中一条条发送信息，Winsock控件问题！！

///////////////////////////////////////////////////////////////////////////////////////////////////
Do While strCommandContent <> ""
        
        intPos = InStr(1, strCommandContent, "$", vbBinaryCompare)
        str417T = Left(strCommandContent, intPos - 1)
        strCommandContent = Mid(strCommandContent, intPos + 1)        intPos = InStr(1, strCommandContent, "$", vbBinaryCompare)
        str417D = Left(strCommandContent, intPos - 1)
        strCommandContent = Mid(strCommandContent, intPos + 1)        intPos = InStr(1, strCommandContent, "$", vbBinaryCompare)
        str417B = Left(strCommandContent, intPos - 1)
        strCommandContent = Mid(strCommandContent, intPos + 1)        intPos = InStr(1, strCommandContent, "$", vbBinaryCompare)
        str417R = Left(strCommandContent, intPos - 1)
        strCommandContent = Mid(strCommandContent, intPos + 1)        intPos = InStr(1, strCommandContent, "$", vbBinaryCompare)
        str417C = Left(strCommandContent, intPos - 1)
        strCommandContent = Mid(strCommandContent, intPos + 1)        intPos = InStr(1, strCommandContent, "$", vbBinaryCompare)
        str417A = Left(strCommandContent, intPos - 1)
        strCommandContent = Mid(strCommandContent, intPos + 1)        str417S = Left(strCommandContent, 4)
        strCommandContent = Mid(strCommandContent, 9)
'        Debug.Print strCommandContent, intPos
        Debug.Print "-----------------------------------------------"
        Debug.Print str417T, str417D, str417B, str417R, str417C, str417A, str417S
Loop以上是俺分开的传输信息代码！
以下是俺循环读出库的信息进行发送！
///////////////////////////////////////////////////////////////////////////////////////////////////
            With rs411
        '    判断有否可查记录
        '    循环将记录发送
            If .RecordCount = 0 Then
                wskServer(Index).SendData "413:无所查记录"
                Exit Sub
            End If
              .MoveFirst
            For int411i = 1 To .RecordCount
                If .EOF Then Exit For
        '        For int411j = 0 To .Fields.Count - 1
        '            str411D = .Fields(int411j).Value
        '        Next int411j
                str411Dtemp = .Fields("DisCoverTime").Value
                str411T = .Fields("Township").Value
                str411B = .Fields("Bewrite").Value
                str411R = .Fields("Resolve").Value
                str411C = .Fields("Crossing").Value
                str411A = .Fields("Aspect").Value
                str411S = .Fields("SerialNo").Value
                
                wskServer(Index).SendData "" '注一
                Debug.Print "*****************************************************************************************"
                wskServer(Index).SendData "416:" + str411Dtemp + "$" + str411T + "$" + str411B + "$" + str411R + "$" + str411C + "$" + str411A + "$" + str411S
                Debug.Print str411T + "$" + str411B + "$" + str411R + "$" + str411C + "$" + str411A + "$" + str411S
                .MoveNext
            Next int411i
            End With
///////////////////////////////////////////////////////////////////////////////////////////////////
俺知道Winsock送出的信息是有限的（谁能告诉俺多大？），所以要一条条的发送，才能发送更多的信息，可问题......我是循环一条条地发送信息的，可是为什么会把信息累计到一起发送呢？
即送出去的信息为："416:" + str411Dtemp + "$" + str411T + "$" + str411B + "$" + str411R + "$" + str411C + "$" + str411A + "$" + str411S
"416:" + str411Dtemp + "$" + str411T + "$" + str411B + "$" + str411R + "$" + str411C + "$" + str411A + "$" + str411S
"416:" + str411Dtemp + "$" + str411T + "$" + str411B + "$" + str411R + "$" + str411C + "$" + str411A + "$" + str411S
"416:" + str411Dtemp + "$" + str411T + "$" + str411B + "$" + str411R + "$" + str411C + "$" + str411A + "$" + str411S
.....我把"416:" + str411Dtemp + "$" + str411T + "$" + str411B + "$" + str411R + "$" + str411C + "$" + str411A + "$" + str411S作为一条信息，怎么才能让我一条，一条，一条……的发送呢？我这里用循环读出库的每一条数据，然后发送，再循环下一次……从理论上讲应该一条一条送出，可是接收到的数据是累计起来，所以不能发送更多条记录！
问题：怎样让一条条的送出记录！
目前俺想的是：是不是可以在 注一 处可不可以发送一条终止性的命令，可是俺不不知道怎么样写那句代码！可行吗？？？大家来讨论一下，目前俺的工作差不多了，给俺加点油吧，谢谢....