fejl når jeg sende data igennem winsock

dette er mit script, kopiret fra Microsoft\'s website (MSDN)



Private Sub Form_Load()
    tcpClient.RemoteHost = \"10.119.254.1\"
    tcpClient.RemotePort = 3001
End Sub

Private Sub cmdConnect_Click()
    tcpClient.Connect
End Sub

Private Sub Command2_click()
    tcpClient.SendData \"test\"
End Sub

Private Sub tcpClient_DataArrival _
(ByVal bytesTotal As Long)
    Dim strData As String
    tcpClient.GetData strData
    MsgBox (strData)
End Sub


Run-time error \'40006\':

Wrong protocol or connection state for the requested transacrion or request.. hjælp

fejl når jeg trykker på Command2