Winsock - VBWEB

Estou tendo o seguinte problema...

Primeiramente pego a mensagem enviada pelo cliente e gravo em um banco de dados, logo depois envio para o servidor que ja ta la no banco de dados

No winsock do servidor no evento DataArrival, eu criei uma rotina que esta mostrando abaixo, que vai la no banco de dados e pega mensagem enviada..

Se eu coloco o Break Point em cima deste evento ele funciona direitinho, agora se eu tiro ele me come uma mensagem.. por exemplo

Mando mensagem 1 (Não aparece)
Mando mensagem 2 ( aparece 1)
Mando mensagem 3 (aparece 2) e assim sucessivamente

Abaixo esta minha programação se alguem encontrar o erro corrija por favor

===================================================

Private Sub WskConexao_DataArrival(Index As Integer, ByVal bytesTotal As Long)
'ao receber a mensagem executa comandos abaixo

On Error Resume Next
RsChamado.Close

On Error GoTo 0
Sql = " Select * from tbl_cham_atual where adicionado = 'N'"
RsChamado.Open Sql, Db, adOpenStatic, adLockOptimistic

On Error Resume Next
If RsChamado.RecordCount >= 1 Then

    RsChamado.MoveMin

    If FlxChamados.Rows = 2 And FlxChamados.TextMatrix(1, 0) = Empty Then
    FlxChamados.TextMatrix(1, 0) = RsChamado!nompc
    FlxChamados.TextMatrix(1, 1) = RsChamado!Data
    FlxChamados.TextMatrix(1, 2) = RsChamado!Problema
    FlxChamados.TextMatrix(1, 3) = RsChamado!mensagem & " "
    FlxChamados.TextMatrix(1, 4) = RsChamado!pa & " "
    FlxChamados.TextMatrix(1, 5) = RsChamado!ramal & " "

    RsChamado!adicionado = "S"
    RsChamado.Update
        ElseIf FlxChamados.Rows >= 2 And FlxChamados.TextMatrix(1, 0) <> Empty Then
            FlxChamados.AddItem RsChamado!nompc & vbTab & _
                            RsChamado!Data & vbTab & _
                            RsChamado!Problema & vbTab & _
                            RsChamado!mensagem & " " & vbTab & _
                            RsChamado!pa & " " & vbTab & _
                            RsChamado!ramal
                            RsChamado!adicionado = "S"
                            RsChamado.Update
                        End If

    RsChamado.MoveNext

    Do While Not RsChamado.EOF
        FlxChamados.AddItem RsChamado!nompc & vbTab & _
                            RsChamado!Data & vbTab & _
                            RsChamado!Problema & vbTab & _
                            RsChamado!mensagem & " " & vbTab & _
                            RsChamado!pa & " " & vbTab & _
                            RsChamado!ramal
            RsChamado!adicionado = "S"
            RsChamado.Update
            RsChamado.MoveNext
    Loop
End If
Set RsChamado = Nothing
End Sub