新手求教，winsock客户端连服务器端有时候连接失败？

刚刚接触socket，很多问题不明白，下面是我在网上看到的一段代码，copy到我的程序中，就是连接不上，请高手帮我看看出了什么问题。我的机器和服务器的机器同是内网的机器。我的是10段的，服务器是16段。
服务器端：
Private Sub Command1_Click()
    If Winsock1.State <> sckClosed Then Winsock1.Close
    Winsock1.Bind
    Winsock1.Listen
End SubPrivate Sub Form_Load()
    Winsock1.LocalPort = 12345
End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    If Winsock1.State <> sckClosed Then Winsock1.Close
    Winsock1.Accept requestID
    
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strDate As String
Winsock1.GetData strDate, vbString
Text2.Text = strDate
End Sub
服务器端运行好像没什么问题
客户端：
Private Sub Command1_Click()
Dim strState As String
If Winsock1.State <> sckClosed Then
    Winsock1.Close
End If
Winsock1.RemoteHost = xxx.xxx.xxx.xxx
Winsock1.Bind
Winsock1.Connect\\运行到这句出错，错误代码40002，提示当前状态无效
Command1.Enabled = False
End SubPrivate Sub Form_Load()
Winsock1.RemotePort = 12345
End SubPrivate Sub Text3_Change()
If Winsock1.State = sckConnected Then
    Winsock1.SendData Text3.Text
End If
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Winsock1.GetData str, vbString
Text2.Text = str
End Sub