酒店干短发气质美女:vb中winsock控件总是出错！！

用winsock控件编程，使用tcp协议
客户端总是不正常，我用了一个text把他的state导出，发现一连接就是9（错误）。（我是自己连接自己，我是在局域网中，服务器端应该没问题侦听后连ConnectionRequest都没发生）
附代码：Dim a As String
Private Sub Command1_Click()
Winsock1.Connect RemoteHost, RemotePort '这两个在winsock的属性里已设置
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Winsock1.Close
Command2.Enabled = False
Command1.Enabled = True
End Sub

Private Sub Command3_Click()
Text1.Text = Winsock1.State
End Sub

Private Sub Form_Load()
Command2.Enabled = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
Winsock1.Close
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData a
If a = "ok" Then Text1.Text = "ok"
End Sub
一下是service：
Private Sub Command1_Click()
Winsock1.Bind 8874
Winsock1.Listen
Command1.Enabled = False
Command2.Enabled = True

End Sub

Private Sub Command2_Click()
Winsock1.Close
Command2.Enabled = False
Command1.Enabled = True
End Sub

Private Sub Command3_Click()
Text1.Text = Winsock1.State
End Sub

Private Sub Form_Load()
Command2.Enabled = False

End Sub

Private Sub Form_Unload(Cancel As Integer)
Winsock1.Close
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Accept requestID
Winsock1.SendData "ok"
Text1.Text = "ok"
End Sub
请指教，谢谢。（我忙了几个小时都没结果）